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Auf Profis 
programmiert: 





Mit mc lernen Sie 
Computer von Grund 
auf verstehen. Aus¬ 
führliche Funktions¬ 
beschreibungen von 
Rechner-Hardware 
und gut kommentierte 
Programm-Listings 
bieten Ihnen den rich¬ 
tigen Einstieg ins ernst¬ 
hafte Computern. 


Durch Programme 
in mc v^^erden Sie 
manches Problem über¬ 
haupt nicht mehr als 
Problem betrachten. 


Nach mc-Bauanlei- 
tungen löten Sie vom 
einfachen Interface 
bis zum kompletten 
System, was an Hard¬ 
ware nur schwer zu 
kaufen ist. 




Die Mikrocomputer-Zeitschrift 6.50 DM - SS öS • 7 sfr. - September 1965 


68008-Plariiie 
für Anile-Il 

Geknockter Macintosh 

Kommunikation mit dem S ) 

mc-68000-Computer ^ 

UCSD-Pascai unter MS-DOS 

Erweitertes 
C-64-Crafikpaket 




In mc-Fachaufsätzen 
gehPs um neue Ent- 
wicldungen, um pro¬ 
fessionelle Hardware 
und Peripherie. 



Natürlich testet mc 
Geräte und Programme. 
Die Ergebnisse werden 
aus der Sicht des 
professionellen An¬ 
wenders interpretiert. 

Aktuelles aus der 
Branche zu Unterneh¬ 
men, Produkten, Kon¬ 
gressen, Tagungen und 
Messen finden Sie 
jeden Monat in mc. 

mc bringt Profis 
weiter. 

Für DM 6,50 bekom¬ 
men Sie mc an jeder 
größeren Zeitsc^iften- 
Verkaufsstelle. 
mc können Sie aber 
auch auf andere Art 
kennenlemen. 

Kostenlos und unver¬ 
bindlich. 

Die Abrufkarte dafür 
finden Sie an der 
Umschlagklappe. 
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Editorial 



mit diesem Heft des ComputerSchau-Kompakt- 
wissens halten Sie die zweite Ausgabe in Händen, 
die sich ausschließlich mit den Schneider-Compu¬ 
tern der CPC-Serie beschäftigt. 

Sie haben damit eine weitere Informationsquelle, 
die Ihnen beim Umgang mit Ihrem Schneider- 
Computer behilflich ist. 

In allen Programmlistings ist eine Fülle an Tips 
und Kniffen enthalten, die Sie auch bei der Erstel¬ 
lung Ihrer eigenen Programme verwerten können. 
Die im Heft enthaltenen Programme wurden - 
soweit es uns möglich war - so geschrieben, daß 
sie auf allen CPCs laufen. 

Diesmal haben wir auch für die Besitzer von Dis¬ 
kettenstationen höchst interessante Beiträge. 
Nicht nur die Grundlagenartikel gehen stark auf 
die Disketten ein, in vielen weiteren Artikeln gibt es Ideen, Tips und Kniffe für ver¬ 
schiedenste Anwendungen. Für Anwender von CP/M 2.2 gibt es ein Programmlisting 
für eine DIN-Tastatur. Auch ein Programm zur kompletten Rettung von versehentlich 
gelöschten Files oder zur Abfrage des Disketten-Schreibschutzes ist enthalten. 

Und wie im letzten Heft schon angedeutet, greifen wir auch auf die zweite Speicher¬ 
bank beim CPC 6128 zu. Doch auch Eigentümer des CPC 464 mit Kassettenrecorder 
werden mit vielen interessanten Beiträgen bedient. 

Ein weiterer „Knüller“ ist die im Heft enthaltene Gegenüberstellung der CPC- 
Adressen. Dieser Anhang soll es Ihnen ermöglichen, Programme, die „Peeks“ und 
„Pokes“ enthalten - oder sogar Maschinenprogramme -, die nicht für Ihren CPC-Typ 
geschrieben wurden, an Ihr System anzupassen. 

Wer die im Heft enthaltenen Programme nicht abtippen will, hat die Möglichkeit, all 
diese (und auch die des ersten Heftes) vom Franzis-Software-Service auf Diskette zu 
beziehen. Diesen Service haben wir eingerichtet, damit Leser ohne die Mühe des 
Abtippens in den Genuß der Programme kommen, nachdem wir immer wieder darum 
gebeten wurden. 

Viel Freude und Erfolg mit Ihrem CPC 
wünscht Ihnen 
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yyKlar sehen^^ heißt fiir die Computer- 
Schau-Redaktion, Ihnen mit diesem 
Kompaktwissen-Heft einen Wissens¬ 
vorsprung zu garantieren. Deshalb ha¬ 
ben wir dafür gesorgt, daß Schneider- 
Freunde mit unseren Tips und Pro¬ 
grammen zu echten Micro-Profls wer¬ 
den, die sogar komplizierte Anwen¬ 
dungssoftware selbst erstellen und ana¬ 
lysieren können. 
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Grundlagen 


Arbeiten mit Diskette (1) 

EinieHung 


In dieser Rubrik konnten Sie im 
letzten Kompakhvissen vor allem 
Einzelheiten und Eigenarten über 
Ihren CPC kennenlemen. Diesmal 
geht es um ein externes Gerät, die 
Diskettenstation. 

Der CPC 664 und auch der CPC 
6128 sind mit diesem schnellen 
Massenspeicher von Hause aus 
versehen. Der CPC 464 kann damit 
nachgerüstet werden. Will man 
nun nicht nur mit käuflicher Soft¬ 
ware arbeiten, dann ist es gut, 
mehr über den Umgang mit dem 
Diskettenlaufwerk zu wissen. 

Bevor ich nun auf das eigentliche 
Thema eingehe, vorab gleich ein 
„echter Hammer“: Demnächst wer¬ 
den von einem Fremdanbieter auch 
Harddiscs für den CPC 464 angebo- 
ten. Weiterhin ist mit einer Zusatz¬ 
platine zu rechnen, die durch einen 
Coprozessor den CPC 464 auch MS- 
DOS-fähig und IBM-kompatibel ma¬ 
chen soll. Dann sind für die CPCs 
weitere professionelle Einsatzmög¬ 
lichkeiten offen. Bis zum Zeitpunkt 
der Niederschrift dieses Artikels 
konnte ich nur ein Mustergerät in 
Betrieb sehen. Es liegen außerdem 
noch keine detaillierten Angaben 
hierüber vor, deshalb kann ich auch 
noch keine genaueren Angaben ma¬ 
chen. Geplant sind jedoch zwei 
Ausführungen mit zehn und zwan¬ 
zig Megabyte. 

Ein einziges Pragramm 
für viele Anwendungen 

Doch zurück zum Umgang mit der 
Diskettenstation, ich will Ihnen ja 
einiges hierüber mitteilen. Für die 
Anwendung der in diesen Artikeln 
veröffentlichten Programme ist die¬ 
ses Wissen zwar nicht unbedingt er¬ 
forderlich aber sehr, sehr nützlich. 


Lesen Sie deshalb, auch wenn Sie 
an Maschinensprache nicht interes¬ 
siert sind, weiter. Ich bemühe mich, 
die Dinge so einfach wie nur mög¬ 
lich darzustellen. Auch weitere ei¬ 
gene Disketten-Programme können 
Sie dann durch den Einsatz von nur 
einem (!) Maschinenprogramm ent¬ 
wickeln. Und dies alles in Basic! 
Keine Angst, Sie sollen nun nichts 
über den komplizierten technischen 
Ablauf zu lesen bekommen, son¬ 
dern nur die Dinge, die für alle An¬ 
wendungen, die nun durchgespro¬ 
chen werden sollen, erforderlich 
sind. 

Das Basiswissen über die Disketten¬ 
station und über die Diskette selbst 
aber, sollten Sie den Handbüchern 
entnehmen. 

Zur Auffrischung bzw. Erinnerung 
sei nur noch einmal darauf hinge¬ 
wiesen, daß eine Diskette bei der 
Formatierung ein magnetisches Mu¬ 
ster „aufgedrückt“ bekommt und 
dadurch die Diskette in Spuren 
(tracks) und Sektoren (sectors) ein¬ 
geteilt wird. 

Diese Formatierung kann für drei 
Formate durchgeführt werden. 

- IBM-Format 

- Data-only-Format 

- System Format (CP/M-Format und 
Vendor] 

(Das Vendorformat ist nur eine Son¬ 
derform des CP/M-Formates.) 

Aber auch andere Formate sind mit 
dem Wissen über die Arbeitsweise, 
innerhalb der Grenzen des Control¬ 
lerbausteines möglich. Hierzu müs¬ 
sen dann eigene - anstelle der „ein¬ 
gebauten“ - Routinen geschrieben 
und die Diskettenparameter direkt 
in den „Extended Disk Parameter 
Block“ gepatcht werden. Software¬ 
anbieter benutzen derartige Techni¬ 
ken als Schutz gegen Raubkopien. 
Das IBM-Format will ich derzeit 
größtenteils noch unberücksichtigt 
lassen, da wahrscheinlich nur weni¬ 


ge Anwender unter dieser Formatie¬ 
rung arbeiten. Prinzipiell kann aber 
alles folgende auch analog für die¬ 
ses Format „umgedacht“ werden. 
Was Sie nun lesen, trifft also für 
beide behandelten Formate, näm¬ 
lich Data-only und CP/M zu. Bei der 
Formatierung wird die Diskette in 
40 Spuren (0 bis 39) mit je 9 Sekto¬ 
ren (1 bis 9) eingeteilt. Die Sektoren 
erhalten als Kennzeichen für das 
Format ein Identifikationszeichen, 
welches sowohl die Sektornummer, 
als auch den Code für das Format 
beinhaltet. 

Das Formatkennzeichen für Data- 
only ist dabei der Wert &C0 und für 
CP/M &40. Diese Werte müssen zur 
jeweiligen Sektornummer addiert 
werden. Unter CP/M gibt es in jeder 
Spur also die Sektornummern &41 
bis &49 und unter Data-only die 
Nummern &C1 bis &C9. (IBM-For¬ 
mat 01 bis 08!) 

Ein weiterer Unterschied zwischen 
diesen beiden Formaten ist, daß un¬ 
ter CP/M zwei komplette Spuren für 
das System reserviert sind und dem 
Anwender normalerweise nicht zur 
Verfügung stehen. Diese beiden 
Spuren beinhalten den „Boot-Sec- 
tor“, den „Configuration-Sector“, 
„CCP“ und „BDOS“. 

Immer ans CopirrigM denken! 

Beim Format Vendor werden diese 
beiden ersten Spuren nicht mit 
wirklichen Daten beschrieben, son¬ 
dern freigehalten. Deshalb dient 
diese Formatierung auch zur Wei¬ 
tergabe von Disketten mit CP/M- 
Programmen. Bitte denken Sie im¬ 
mer daran, daß Sie aus Copyright- 
Gründen keine „echten“ CP/M-Dis- 
ketten weitergeben dürfen! 

Wenden wir uns nun weiteren Ein¬ 
zelheiten zu. Jeder Sektor auf der 
Diskette „faßt“ insgesamt 512 Bytes 
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an Daten. Eine einfache Multiplika¬ 
tion zeigt nun die Diskettenkapazi¬ 
tät unter den beiden Formaten. 
Formel: VS • AS • BS 
Hierbei bedeuten: 

VS = Anzahl der verfügbaren 
Spuren 

AS = Anzahl der Sektoren pro Spur 
BS = Bytes pro Sektor. 

Mit eingesetzten Werten ergeben 
sich folgende Kapazitätswerte: 
SYSTEM-Format: 

(40-2) • 9 • 512 = 175 104 Bytes = 
171 KByte. 

Data-only-Format: 

40 • 9 • 512 = 184 320 Bytes = 180 
KByte. 

Wer sich bei einer frisch formatier¬ 
ten (oder „gelöschten“) Diskette 
schon einmal das Inhaltsverzeich- j 
nis angesehen hat, wird nun bereits 
Differenzen zwischen meinen An¬ 
gaben und der Mitteilung der „free- 
Meldung“ feststellen. Der Grund 
dieser Differenz ist aber schnell ge¬ 
klärt. Das Inhaltsverzeichnis (Direc¬ 
tory) benötigt nämlich ebenfalls 
Platz und deswegen fehlen zwei Ki¬ 
lobyte bei der Mitteilung des freien 
Speicherplatzes. Zieht man diese 
von den berechneten Zahlen ab, 
dann stimmt alles wieder. 

Nur 64 Directory-Einträge 
sind mögiich 

Damit sind wir aber bereits an ei¬ 
nem weiteren Punkt angelangt. Das 
Inhaltsverzeichnis (Directory) be¬ 
legt also 2048 Bytes. Da jeder File¬ 
eintrag 32 Bytes belegt, sind aus die¬ 
sem Grunde auch nur 64 Fileeinträ¬ 
ge im Directory möglich. Das heißt, 
daß nicht mehr als 64 Programme 
(und seien sie auch noch so kurz) 
pro Diskettenseite gespeichert wer¬ 
den können. Der Kapazitätsumfang 
des Inhaltsverzeichnisses setzt da¬ 
bei die Grenze! Hiervon und auch 
noch von anderen Dingen, können 
sich anhand der Programme, die ich 
Ihnen in diesen Grundlagen-Arti- 
keln gebe, auch in der Praxis über¬ 
zeugen. Doch bevor wir zur Ent¬ 
wicklung dieser Programme überge¬ 
hen, müssen noch ein paar weitere 
Punkte geklärt werden. 

Damit die Diskettenstation vom 
CPC „angesprochen“ werden kann, 
befindet sich im CPC (664 und 


6128) oder im aufsteckbaren Interfa¬ 
ce beim CPC 464, AMSDOS (AM- 
Strad Disc Operating System), das 
Disketten-Betriebs-System. Dieses 
erlaubt es, Diskettenfiles in der glei¬ 
chen Art und Weise wie Kassetten¬ 
files anzusprechen. Es steckt in ei¬ 
nem der sogenannten „Sideways- 
ROMs“, die vom CPC angesprochen 
werden können. Zusatzroms sind 
bei den CPC’s auf hervorragend 
durchdachte Weise in das Betriebs¬ 
system der CPCs „einbindbar“. 
Während der Initialisierungsphase 
des Computers wird - aufgrund ver¬ 
schiedener Speicherstelleninhalte 
in den Zusatzroms - nämlich abge¬ 
prüft, welche ROMs im Vorder¬ 
grund oder Hintergrund arbeiten, 
bzw. ob es sich um sogenannte „On- 
board“-ROMs handelt. Eine mir - in 
dieser Art - bisher nur von den 
CPCs her bekannte Technik, die äu¬ 
ßerst leistungsstark ist und deshalb 
(bezüglich Betriebserweiterungen) 
vergleichbare Computer um Längen 
schlägl. Wer mehr über diese Me¬ 
thode erfahren will, kann einen Teil 
darüber im ersten Teil des Compu- 
terSchau-Kompaktwissens nach- 
schlageii oder — falls er voll in die 
Thematik einsteigen will - sich das 
Firmwarehandbuch zulegen. Zum 
augenblicklichen Verständnis die¬ 
ser Grundlagenartikel reicht es aber, 
zu wissen daß der CPC ROMs, die in 
den Bereich ab &c000 „eingeklinkt“ 
werden können, ansprechen kann 
und daß diese ROMs eine Auswahl¬ 
nummer haben müssen. Diese Aus¬ 
wahlnummer (Select-number) wird 
benötigt damit bei evtl. Zugriffen 
auf solche Erweiterungen, auch der 
richtige Chip angesprochen wird. 
Die Auswahlnummer des Disketten- 
ROMs (BIOS-ROM) ist mit sieben 
festgelegt. BIOS heißt Basic Input/ 
Output System, hat aber mit der 
Programmiersprache Basic nichts 
zu tun. In diesem ROM steckt auch 
AMSDOS und ein Teil von Dr. 
LOGO. 

Mit diesen Informationen können 
Sie nun bereits tiefer einsteigen. Mit 
z. B. dem Hexpeeker aus dem ersten 
Heft oder (natürlich viel sinnvol¬ 
ler I) mit einem leistungsfähigen 
Disassembler/Monitor kann man 
sich nach Auswahl der Selectadres- 
se dieses DOS (Disk-operating-sy- 
stem) näher ansehen. 


Neun sehr 

leistungsfähige Befehle 

„Maschinenprogrammierer“ wer¬ 
den bei näherer Betrachtung schnell 
die „Sprungleiste“, also den (auf 
neudeutsch) „Jump block“ der Dis¬ 
kettencontrollerbefehle finden. Die¬ 
se Sprungbefehle stehen von &C033 
bis &C04D im - dem Bildschirm- 
RAM überlagerten - BIOS-ROM. 

Die Befehlscodes für diese (insge¬ 
samt neun) Befehle stehen von 
&C0B6 bis &C0BF und gehören zum 
CP/M-BIOS, stehen aber auch dem 
AMSDOS zur Verfügung. Wer hier 
noch tiefer „eintauchen“ will, dem 
kann - als Zusatzliteratur zum 
Handbuch - das von Data Becker 
herausgegebene Floppy-Buch emp¬ 
fohlen werden. Trotz der (in den 
Listings) leider enthaltenen Fehler 
ist es ein brauchbares Informations¬ 
werk. Wer einen „guten Draht“ nach 
England hat und auch noch der eng¬ 
lischen Sprache mächtig ist, der fin¬ 
det im „Disc Firmware Supple¬ 
ment“ ebenfalls viel an tiefergehen¬ 
den Informationen. Auch die in 
manchen Veröffentlichungen als 
„versteckt“ genannten Befehle und 
deren Handhabung sind dort aus¬ 
führlich beschrieben. Vielleicht gibt 
es bis zum Erscheinen dieses Heftes 
aber auch bereits eine deutsche 
Übersetzung hiervon. 

Für uns reicht es im Augenblick zu 
wissen, daß es im Disketten-Be- 
triebssystem sowohl einen Befehl 
für das Lesen, als auch für das 
Schreiben eines Sektors gibt. Außer¬ 
dem ist noch von Interesse, daß das 
Betriebssystem der CPCs eine Firm¬ 
wareroutine für das Auffinden von 
Befehlen und Routinen bereitstellt. 
Diese Routine findet auch Befehle 
von externen ROMs. Sie hat den 
Namen „KL FIND COMMAND“ und 
wird durch call &BCD4 aufgerufen. 
Beim Einsprung in diese Routine, 
ist nur eine Einsprungbedingung er¬ 
forderlich, das „HL“-Register muß 
die Adresse des Kommandona¬ 
mens, nach dem gesucht wird, ent¬ 
halten. Der CPC prüft daraufhin, ob 
ein RSX-Befehl oder ein Hinter- 
grund-ROM-Befehl, der diesen Spe¬ 
zifikationen entspricht, vorhanden 
ist. Durch „Carry-Flag“ an oder aus, 
wird der Verlauf der Suche signali- 
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siert. Carry-Flag an heißt gefunden, 
im anderen Falle nicht gefunden. 
Da ich voraussetze, daß das CPC- 
System ordnungsgemäß arbeitet 
und die Programme, die Sie später 
einsetzen, korrekt abgeschrieben 
wurden, brauchen wir uns nur um 
die „erfolgreiche“ Suche zu küm¬ 
mern. Nach der Rückkehr aus der 
Suchroutine enthält das Register 
„C“ die ROM-Auswahladresse 
(ROM-select) und „HL“ enthält die 
Adresse der gesuchten Routine. Die¬ 


se Registerinhalte müssen in Spei¬ 
cherstellen geladen werden, auf die 
ein „Folgeprogramm“ zugreift. Da¬ 
mit haben wir nun die Vorausset¬ 
zungen für den direkten Zugriff auf 
die Diskette. 

Welche „Mächtigkeit“ Sie mit die¬ 
sem Wissen haben, wird Ihnen nach 
Lektüre dieser Grundlagenartikel 
und deren Anwendungsbeispielen 
bestimmt klar werden. Ich kann Ih¬ 
nen vorab nur mitteilen, daß Ihnen 
Möglichkeiten offenstehen, die Ihre 


Erwartungen vermutlich weit über¬ 
treffen. So ist es möglich, sehr kom¬ 
fortabel gelöschte Files wieder zu¬ 
rückzuholen, sogenannte RAN- 
DOM-Dateien aufzubauen, „COM- 
Files“ in Binärfiles zu ändern und 
vieles mehr. Einzige Voraussetzung, 
daß auch Sie all dies programmie¬ 
ren können ist Ihr Wille. Wie es geht 
wird in diesem Heft durch einige 
Beispiele gezeigt. Im nächsten Kapi¬ 
tel führe ich Sie dann wirklich ins 
„Eingemachte“. L. Miedel 
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Arbeiten mit Diskette (2) 
Maschinenprogramm 
für den Zugriff 
auf einen Sektor 


Aufbauend auf den vorhergehen¬ 
den Artikel wUl ich nun mit Ihnen 
gemeinsam eine Routine entwik- 
keln, die den direkten Zugriff auf 
einen bestimmten Sektor einer Dis¬ 
kette ermöglicht Dieser Routine 
dient auch für spätere Programme 
als Unterroutine, Deshalb will ich 
Ihnen die genaue Arbeitsweise er¬ 
klären. Da ein sinnvoller Zugriff 
nur in Maschinensprache gesche¬ 
hen kann, werden wir uns diesem 
„RasisteW zuerst widmen. 

Um ein derartiges Maschinenpro¬ 
gramm entwickeln zu können, be¬ 
dient man sich sinnvollerweise ei¬ 
nes Assemblerprogrammes. Im letz¬ 
ten Heft habe ich bereits einen As¬ 
sembler/Disassembler/Editor gete¬ 
stet, mit dem ich auch heute noch 
arbeite. Zwischenzeitlich besitze 
ich nun zwei Versionen, da sich - 
wie im Testbericht bereits angedeu¬ 
tet — die Version 1,09 nicht auf dem 
6128 oder 664 bewährte, [Das 
Eprom war nicht schnell genug!) 
Für Interessenten an diesem ROM- 
Programm sei erwähnt, daß - auf¬ 
grund der Unterschiede der engli¬ 
schen und deutschen 6128-Versio- 
nen - die Adaption nur mit einem 
selbstgebastelten Adapterstecker ge¬ 
schehen kann (Stand: 1. 11. 1985), 
Dies ist zwar für einen versierten 
Bastler nicht schwierig, für einen 
„elektronischen Linkshänder“ aber 
eine kaum überwindbare Hürde, 
[Hoffentlich nimmt sich demnächst 


jemand dieser Sache an, sonst gibt 
es immer wieder Probleme mit aus 
England stammenden Erweiterun¬ 
gen, wenn diese an den CPC 6128 
angeschlossen werden sollen.) 

Das Programm wird ersteltt 

Ich schildere nun die Vorgehens¬ 
weise mit dem schon erwähnten As¬ 
sembler. Dieser muß natürlich erst 
aktiviert und in den Editormode ge¬ 
bracht werden. Als erstes teilen wir 
dem Assembler die Adresse mit, ab 
welcher das Maschinen-Programm 
abgelegt werden soll. Da es sich um 
eine sehr kurze Routine handelt, 
kann diese Adresse sehr weit oben, 
also beispielsweise auf &A600 ge¬ 
setzt werden. Mit dem „MAXAM im 
ROM“ kann allerdings der Test der 
Routine an dieser Stelle nicht erfol¬ 
gen, denn MAXAM ist dort selbst 
aktiv. Während der Austestphase 
kann dieses Programm beispiels¬ 
weise auf &A000 gelegt werden, um 
es später, wenn man sich von der 
Fehlerfreiheit überzeugt hat, für den 
Bereich ab &A600 zu assemblieren. 
Betrachten Sie nun bitte die Zeilen¬ 
nummer 6 des Assemblerlistings. 
Dort wird durch org &A600 be¬ 
stimmt, daß das Maschinen-Pro- 
grämm ab dieser Adresse abelegt 
werden soll. Als nächstes legen wir 
die Adresse für das aktive Laufwerk 
fest. Dies hat den Vorteil, daß wir 
später auch auf ein zweites Lauf¬ 
werk zugreifen können. Die Spei¬ 


cherstelle, in der bei den CPCs die 
Nummer des aktiven Laufwerks ab¬ 
gelegt wird, ist &A702. Sinnvoller¬ 
weise nennen wir diese Speicher¬ 
stelle „aktdriv“. Die Einsprung¬ 
adresse für die Suche nach einem 
Kommando ist wie im letzten Ab¬ 
schnitt schon erwähnt, &BCD4. Der 
Name hierfür wurde mit findco, der 
Abkürzung für „Finde Kommando“ 
gewählt. Als nächstes muß die Ta¬ 
belle zur Aufnahme bestimmter 
Werte aufgebaut werden. [Ein kom¬ 
fortabler Assembler ermöglicht je¬ 
derzeit das „Zwischenschieben“ 
von Befehlen, Direktiven usw. in 
den bestehenden Sourcecode.) Da 
später auch eine Beeinflussung des 
Maschinenprogrammes von Basic 
aus erfolgen soll, werden in dieser 
Tabelle Speicherplätze für verschie¬ 
dene „Merker“ reserviert. Für unser 
Programm benötigen wir Platz für 
den Befehl [befehl = 1 Byte), die 
ROM-Adresse [romadr = 2 Byte), 
für ROM-Select [romsei = 1 Byte), 
für die Laufwerksnummer [driven 
= 1 Byte), für die Spur-Nummer 
[track = 1 Byte), für Format und 
Sector-Nummer [formse = 1 Byte) 
und schließlich noch für den Buffer 
aus dem oder in den die Daten gele¬ 
sen oder geschrieben werden [buffer 
= 2 Bytes). 

Tabellen bringen Vorteile 

Durch den Aufbau von Tabellen ge¬ 
winnen wir den „Freiheitgrad“, spä- 
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ter auf einfache Weise die ge¬ 
wünschten Werte - von Basic aus - 
in das Maschinenprogramm poken 
zu können. Außerdem werden beim 
Assemblerlauf [falls gewünscht] die 
Adressen mit den Namen ausgege¬ 
ben, was bei der Basicprogrammer- 
stellung mehr oder weniger kompli¬ 
zierte Berechnungen und Überle¬ 
gungen überflüssig macht. 

Nun folgt das eigentliche Maschi¬ 
nenprogramm, das wir nun zwi¬ 
schen den ersten Teil und der Ta¬ 
belle einschieben. 

Zeile 11 [also ab der Adresse 
&A600] bewirkt, daß der Akkumula¬ 
tor mit dem Inhalt der Speicherstel¬ 
le für das aktive Laufwerk geladen 
wird. Dadurch kann beim späteren 
Programmlauf der automatische Zu¬ 
griff auf das jeweils ausgewählte 
Laufwerk erfolgen. Dieser Wert 
wird dann sofort [Zeile 12] in die 
„Merker“-Speicherstelle der Drive- 
(Laufwerks-]Nummer übertragen. 
Anschließend wird die Adresse des 
Befehles geholt und die Suchrouti¬ 
ne aufgerufen. Da bei intaktem CPC 
und korrekt angeschlossenem Lauf¬ 
werk die Suche erfolgreich sein 
muß, können die in den Registern 
„HL“ und „C“ enthaltenen Werte 
der Suchroutine direkt in die reser¬ 
vierten Speicherstellen übertragen 
werden [Zeile 15 bis 17]. Um über 
einen sogenannten Restart die ei¬ 
gentliche Ausführung des Befehles 
zu bewirken, sind noch weitere Vor¬ 
aussetzungen zu berücksichtigen. 
Die Laufwerksnummer muß im E- 
Register stehen, das D-Register muß 
die Spur-Nummer enthalten, im C- 


Register muß die Sektornummer 
(inklusive der Formatkennzeich¬ 
nung] stehen und zu guter Letzt muß 
„HL“ die Bufferadresse enthalten. 
Dies alles geschieht in den Zeilen 
18 bis 24. Beim Restart selbst wird 
außerdem noch die ROM-Adresse 
der eigentlichen Routine „mitge¬ 
nommen“. 

Wird beim späteren Programmlauf 
die Routine abgearbeitet, dann steht 
im gewünschten RAM-Speicherbe¬ 
reich [Buffer] genau der gewünschte 
Sektorinhalt der Diskette. 

Ein Byte mit groBer Wiikung 

Da wir in der Tabelle den Befehls¬ 
wert mit &84 festgelegt haben, han¬ 
delt es sich im Moment um ein Pro¬ 
gramm zum Lesen eines Sektors. 
Ändert man nur den Befehlscode in 
korrekter Weise, dann wird nicht 
ein Sektor gelesen, sondern ge¬ 
schrieben. Dabei können alle ande¬ 
ren Parameter in der gleichen Art 
übergeben werden. Um es nochmals 
anders auszudrücken, bei Änderung 
des Befehles von &84 in &85 werden 
512 Bytes ab dem festgelegten Buf¬ 
feranfang in den, in den anderen 
Registern festgelegten Sektor ge¬ 
schrieben. So einfach geht das! Der 
Rest des Assemblerlistings dürfte 
keine Verständnisschwierigkeiten 
bereiten. Die Bufferadresse und 
formse [Format und Sektor] wurden 
zwar im Assemblertext definiert, 
aber wir können von Basic aus ja 
jeden Tabellenwert verändern. 
Damit haben wir nun eine Grund¬ 
routine erstellt, die uns bei allen 


weiteren „direkten“ Arbeiten mit 
der Diskettenstation wertvolle Dien¬ 
ste leisten kann. Da nicht jeder CPC- 
Besitzer über einen Assembler ver¬ 
fügt, habe ich selbstverständlich 
auch einen „Dataloader“ erstellt, 
der das entsprechende „Binärfile“ 
automatisch auf der Diskette gene¬ 
riert. Die Basicprogramme laden 
dann jeweils dieses erzeugte Binär¬ 
file [Sector.bin] nach, also nicht den 
Dataloader! 

Ich habe es im letzten Heft zwar 
schon einmal erwähnt, aber doppelt 
„genäht“ hält besser. Vergleichen 
Sie doch einmal die Daten des Data- 
loaders mit den Daten des Assem¬ 
blerlistings. Wie Sie sehen, sind bei¬ 
de gleich. Der Dataloader ist also 
nur eine „Krücke“, um Maschinen¬ 
programme in eine druckbare und 
direkt eingebbare Form zu bringen. 
Vor dem Lauf des Dataloader sollten 
Sie aber unbedingt den Maschinen¬ 
sprachebereich durch MEMORY 
&A5FF vor dem „Überschreiben“ 
schützen. Dies können Sie bei¬ 
spielsweise auch im Programm 
selbst tun. Wenn Sie es nämlich ver¬ 
gessen, kann es passieren, daß dort 
ganz andere Werte stehen, denn 
Stringvariable werden ja von HI- 
MEM abwärts im Speicher des CPC 
abgelegt. Auch die späteren Basic¬ 
programme müssen diesen Bereich 
„schützen“. 

Alles was jetzt noch zu tun ist, kann 
mittels eines Basicprogrammes be¬ 
stimmt werden. 

Im nächsten Kapitel werden wir 
dies für einen ersten Anwendungs¬ 
fall tun. Lothar Miede! 


ARNOR ZeO 

ASSEMBLER 

Version 1.10 


Page 001 

00002 





00003 



;»»» SECTOR 

(c) LM *»* 


00004 





00005 

A474 


write "sector.bin" 


00006 

A600 

(A600) 

org 

&a600 


00007 






00008 

A600 

(A702) 

aktdriv equ 

&a702 


00009 

A600 

(BCD4) 

findco equ 

&bcd4 


00010 






00011 

A600 

3A 02 A7 

Id 

a,(aktdriv) 

;aktlve drive# holen 

00012 

A603 

32 26 A6 

Id 

(driven),a 

;und in tabe11e 

00013 

A606 

21 22 A6 

Id 

hl,befahl 

»Befeh 1sadresse 

00014 

A609 

CD D4 BC 

cal 1 

findco 

;Adresse und Select holen 

00015 

A60C 

22 23 A6 

Id 

(romadr),hl 

iSprungadresse in Tabelle 
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00016 

A60F 

79 




Id 

a, c 

jRomsel uebergeben 

00017 

A610 

32 

25 

A6 


Id 

(romsei),a 

;und in Tabelle ablegen 

00018 

A613 

21 

26 

A6 


Id 

hl,driven 

fAdresse fuer drlve holen 

00019 

A616 

5E 




Id 

e,(hl) 

;drive# in’s E-Register 

00020 

A617 

23 




inc 

hl 

;Zeiger auf track 

00021 

A618 

56 




Id 

d,(hl) 

;track in’s D-Register 

00022 

A619 

23 




inc 

hl 

;Zeiger auf formse 

00023 

A61A 

4E 




Id 

c,(hl) 

;Format + Sector in C 

00024 

A61B 

2A 

29 

A6 


Id 

hl,(buffer) 

;Bufferadresse holen 

00025 

A61E 

DF 

23 

A6 


rst 

3,romadr 

;Befehl ausfuehren 

00026 

A621 

C9 




ret 


vzurueck nach Basic 

00027 








00020 





;* Tabelle # 



00029 








00030 

A622 




.befahl 




00030 

A622 

84 




def b 

&84 

;Lesebefehl 

00031 

A623 




.romadr 




00031 

A623 

00 

00 



def b 

ii00,&00 

; ROM-Einsprung 

00032 

A625 




.romsei 




00032 

A625 

00 




defb 

icOO 

;hier Romselect 

00033 

A626 




.driven 




00033 

A626 

00 




def b 

&00 

lenthaelt Drive-# 

00034 

A627 




.track 




00034 

A627 

00 




defb 

Ä(00 

;Track-# 

00035 

A628 




.formse 




00035 

A628 

CI 




defb 

&cl 

; Format + Sector 

00036 

A629 




,buffer 




00036 

A629 

00 

90 



defb 

&t00,&90 

;Bufferadresse 

00037 









Errors 

: 00000 1 

Uarnings: 

00000 




SYMBOL TABLE: 







A702 AKTDRIV 



A622 

BEFEHL 


A629 BUFFER 

A626 DRIVEN 

BCD4 FINDCO 



A628 

FORMSE 


A623 ROMADR 

A625 ROMSEL _ 

A627 TRACK 









L. i s 

t i ng s 


SECTOR 

(Dataloader) 




100 'Dataloader Maschinenprogrammroutine ''Sector'' 

110 • 

120 a=f/A600:e=iiA62A :zb=1000:e=e+l 

130 FOR i =a TO eiREAD d$:IF LEFT$(d$, 1) = "&'' THEN flag =1 

140 IF (flag AND ps<>VAL(d$)) THEN PRINT^Fehler in Zeile ”zb-H:END 

150 IF (flag AND i=e) THEN 190 

160 IF flag THEN i=i-l:zb=zb+l:ps=0:d$='"':flag = 0:GOTO 180 
170 di="Si''+d$:POKE i,VAL(d$) :ps=ps + VAL(d$) : 

180 IF i < e THEN NEXT i 

190 SAVE”sector. bin”,.b, &A600, 43 

200 PRlNT^Maschinenprogramm "Sector'’ geladen und abgespeichert" :END 
210 • 

1000 ’Datas fuer das Haschinenprogramni 

1001 DA TA 3A, 02, A 7, 32,26, A6, 21,22, A6, CD, D4, BC, 22,23, A6, 79, &068B 

1002 DA TA 32,25, A6, 21,26, A6, 5E, 23, 56, 23, 4E, 2A,29, A6, DF, 23, &052D 

1003 DA TA A6, C9, 84,00,00, 00,00,00, CI, 00, 90, &0344 
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Arbeiten mH Diskette (3) 

Lesen eines 
Diskettenseklors 


Nun „stehf* also unser Maschinen- 
progranun zum Lesen und Schrei¬ 
ben von Diskettensektoren, Um 
dieses herum bauen wir nun unse¬ 
re Basicprogramme auf. 

Als erstes nun ein Programm, wel¬ 
ches ich aufgrund einer Leseranre¬ 
gung geschrieben habe. Ein Leser 
der ComputerSchau hatte mich ge¬ 
beten, ihm bei seinem Problem zu 
helfen. Es ging darum, ein CPIM- 
COM-File in ein Binärfile umzu¬ 
wandeln. 


Dieser Leser hatte für einen anderen 
Computer (VZ200) eine Befehlser¬ 
weiterung in Assembler geschrie¬ 
ben. Diese zusätzlichen Befehle 
sollten in ein Eprom vom Typ 
27128 gebrannt werden, um danach 
ein eingebautes ROM zu ersetzen. 
Zur Erstellung des Sourcecodes be¬ 
nutzte der Leser den Macro-80-As- 
sembler unter CP/M 80 auf dem 
Schneider CPC 464. Der Output (das 
Ergebnis) war eine Hex-Datei, bzw. 
ein lauffähiges Programm mit dem 
Extend .COM. 

Zum Brennen des Eproms war ein 
EPROM-Programmer (Typ 4003) 
von der Firma Dobbertin vorhan¬ 
den. Dieser Eprommer wird auch 
für die CPC’s angeboten. Das Pro¬ 
blem hierbei war nun, die COM- 
Datei in eine BIN-Datei umzuwan¬ 
deln, Wäre es aber nur um den Ex¬ 
tend gegangen, wäre dies gewiß 
kein Problem gewesen. Aber es ging 
genauer gesagt darum, daß die BIN- 
Datei ab einer bestimmten Speicher¬ 
adresse im CPC stehen mußte, da¬ 
mit die Prommersoftware korrekt 
loslegen konnte. Der Leser konnte 


bis zu diesem Zeitpunkt kein Pro¬ 
gramm finden, das diese Umsetzung 
hätte bewirken können. Dies hätte 
bedeutet, daß insgesamt 16 KByte 
Maschinenprogramm hätten von 
ihm abgetippt werden müssen. Wer 
jemals längere Maschinenprogram¬ 
me abgetippt hat, kann sich vorstel¬ 
len, welches mühselige und auch 
fehlerbchaftetc Unterfangen eine 
derartige Unternehmung darstellt. 
Das von mir an den Leser übersand¬ 
te Programm, half ihm aus diesem 
Dilemma, Demnächst will dieser 
Leser auch noch die ROMs des CPC 
in Angriff nehmen. Da seit kurzer 
Zeit für die CPC’s Erweiterungskar¬ 
ten angeboten werden, ist deshalb, 
so glaube ich, das Problem für viele 
Leser, die sich eigene Erweiterungs- 
eproms brennen wollen, von gro¬ 
ßem Interesse, Deshalb ist hier eine 
Möglichkeit aufgezeigt, wie auch 
Sie derartige „Problemchen“ mei¬ 
stern können. 


Etwas Gedankenahrobalik voilwr 

Es wäre von mir aber, so glaube ich, 
nicht fair, Ihnen einfach die Lösung 
anhand des Programmes vorzule¬ 
gen. Deshalb will ich Ihnen meine 
Gedankengänge, die mich zur Lö¬ 
sung des Problemes brachten auf¬ 
zeigen. Auch hier erfahren Sie wie¬ 
der einiges über Ihre Disketten. 
Bereits im ersten der Grundlagenar¬ 
tikel hatte ich erwähnt, daß jeder 
Fileeintrag im Inhaltsverzeichnis 32 
Bytes belegt. Erinnern Sie sich 
noch? Noch nicht erfahren hatten 
Sie aber wo diese Informationen auf 
der Diskette stehen. Je nach Format 


ist dies unterschiedlich. Trotzdem 
ist die Kurzantwort sehr einfach: 
Diese Informationen sind in den er¬ 
sten vier verfügbaren Sektoren zu 
finden. Im Falle einer Data-only- 
Diskette heißt dies, Spur 0, Sektor 1 
bis 4. 

Beim Systemformat aber: Spur 2, 
Sektor 1 bis 4. 

Damit Sie sich dies nun näher anse- 
hen können, sollten Sie sich zu¬ 
nächst einmal die Maschinenrouti¬ 
ne mittels eines Basicteiles so aus¬ 
bauen, damit Sie sich dies näher 
betrachten können. Hierzu brau¬ 
chen Sie lediglich das Basic-Pro- 
gramm „Readsecl“ abzutippen und 
zu starten. Berücksichtigen Sie da¬ 
bei aber, daß beim Programmstart 
auf der in das Laufwerk eingelegten 
Diskette das Programm „SECTOR- 
.BIN“ verfügbar sein muß. Außer¬ 
dem klappt es bei diesem Programm 
nur, wenn Sie eine Diskette im Da- 
ta-only-Format benutzen. Bei den 
weiteren Programmen sind dann al¬ 
le beiden Formate les- und schreib¬ 
bar. Readsecl ist nur ein kleines 
Programm für die weiteren Erklä¬ 
rungen. 

Nach dem Programmstart wird der 
Maschinencodeteil eingelesen. Da¬ 
nach werden Sie aufgefordert die zu 
untersuchende Diskette einzulegen, 
Haben Sie dies getan und dann eine 
Taste gedrückt, dann wird der erste 
verfügbare Sektor in den gewählten 
Buffer eingelesen. Anschließend 
wird der Inhalt des Buffers ausgele¬ 
sen und sowohl im Hexformat als 
auch in ASCII auf dem Bildschirm 
dargestellt. Lassen Sie beim ersten 
Male ruhig das Programm ganz 
durchlaufen. Beim zweiten Mal 
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sollten Sie nach Ausgabe der ersten 
„Bufferinhaltszeilen“ aber mittels 
der ESC-Taste stoppen. Denn nun 
wollen wir uns dieses Ergebnis et¬ 
was näher betrachten, um weitere 
Schlüsse ziehen zu können. Die an¬ 
deren Programme sind weit komfor¬ 
tabler, aber dieses Programm soll 
uns wirklich nur zur Veranschauli¬ 
chung und zu Erklärungen dienen. 
Deswegen fehlt ihm auch jeglicher 
Bedienungskomfort. Da ein File, 
wie schon bekannt, 32 B 5 des des 
Directoryeintrages benötigt, ist die 
in dem Meinen Programm gewählte 
Bildschirmdarstellung ideal, um Er¬ 
kenntnisse zu erarbeiten. Zusätzlich 
wird durch das Programm nach je¬ 
dem Fileeintrag eine Trennungsli¬ 
nie erzeugt. Dies dient nur dazu um 
alles noch übersichtlicher zu ma¬ 
chen. 

So ist ein Fiieeintrag codiert 

Die erste Hexzahl, die Sie auf dem 
Bildschirm sehen, ist vermutlich 
„00“ oder „E5“. Dieses erste Byte ist 
die User-Nummer. Falls Ihnen 
„Usernummer“ unbekannt ist, se¬ 
hen Sie doch bitte im Handbuch 
nach. Bei „&E5“ handelt es sich um 
ein „gelöschtes“ File. Die wirkli¬ 
chen Usernummern können nur 
zwischen 0 und 15 liegen. Ist an 
dieser Stelle aber ein Wert ungleich 
E5 und größer 15, dann hat jemand 
an diesem Eintrag manipuliert! 
Durch derartige Spielereien können 
Einträge oder auch natürlich die zu 
diesen gehörenden Files selbst, auf 
die vielleicht direkt zugegriffen 
wird, vor den normalen Blicken 
und auch vor dem „Löschen“ ge¬ 
schützt werden. 

Anschließend kommen 11 Hexzah¬ 
len welche die ASCII-Werte des Fi¬ 
le-Namens und der „Extension“ 
darstellen. Wie Sie sich überzeugen 
können, gibt es dazwischen keinen 
Punkt, sondern Name und Extend 
werden unmittelbar hintereinander 
abgespeichert. 

Die nächste Hexzahl gibt Auskunft 
darüber, ob das File länger als 
16 KB ist und sich aus diesem Grun¬ 
de über mehrere Einträge erstreckt. 
Es ist die Directory-Eintragsnum¬ 
mer. Im Falle von „00“ ist es der 
erste Eintrag. Im Falle von „01“ der 
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zweite usw. Die nächsten beiden 
überspringen wir nun kurz. Die letz¬ 
te Zahl der ersten Zeile gibt die An¬ 
zahl der für das File benötigten Re¬ 
cords wieder. (Ein Record sind 128 
Bytes, dies stammt noch aus den 
Urzeiten von CP/MI] 

Wenn Sie diesen Wert mit 128 mul¬ 
tiplizieren, dann haben Sie die Län¬ 
ge die das File auf der Diskette be¬ 
legt. Steht an dieser Stelle der Wert 
&80, dann gibt es noch einen weite¬ 
ren Teil dieses Files. In diesem Fal¬ 
le gibt es dann mindestens einen 
weiteren Fileeintrag mit dem glei¬ 
chen Namen, dessen zwölftes Byte 
dann keine Null, sondern eine „01“ 
oder höhere Nummern, je nach An¬ 
zahl der Einträge, beinhaltet. Die 
Bytes 15 bis 31 enthalten die Block¬ 
nummern, über die das Programm 
auf der Diskette verteilt ist. Nun 
kommt etwas ganz wichtiges! Ein 
Block sind immer zwei aufeinan¬ 
derfolgende Sektoren! Aufgrund 
dieser Informationen wissen Sie 
nun auch, weshalb ein Programm 
immer nur „ganze“ Kilobytewerte 
als Länge hat. Halbe Blöcke in die¬ 
sen Einträgen (dies würde einem 
Sektor entsprechen] gibt es nicht im 
Inhaltsverzeichnis. Selbst wenn al¬ 
so ein Programm nur ein paar Bytes 
umfaßt, werden dadurch auf der 
Diskette zwei (!) Sektoren belegt. 
Dieses Wissen benötigen wir später 
nochmals. Nun wissen Sie prinzi¬ 
piell aber eigentlich alles, was für 
die Erstellung eines Programmes, 
um den eingangs erwähnten Leser 
aus der Patsche helfen zu können, 
notwendig ist. 

Da das in diesem Heft abgedruckte 
Programm „Reader“ aber noch weit 
mehr kann, als bisher erwähnt, ist 
es auch für Leser interessant, die 
keine Eproms brennen wollen. 
Denn es gibt noch einige weitere 
Informationen preis! Das im Heft 
abgedruckte Programm akzeptiert 
auch Systemformat und ist ausrei¬ 
chend kommentiert, deshalb unter¬ 
bleibt die genaue Erklärung. 

Die Bedienung von READER 

Zur Bedienung aber noch ein paar 
Sätze. Nach dem Programmstart er¬ 
halten Sie einige Informationen 
über das Programm selbst. Da das 


Programm feststellt, daß im ersten 
Byte des Maschinenprogrammberei¬ 
ches noch keine 58 steht, wird der 
Maschinenteil erst geladen. 
Daraufhin werden Sie aufgefordert, 
die zu untersuchende Diskette ein¬ 
zulegen und eine Taste zu drücken. 
Durch einen kleinen Trick erkennt 
das Programm das Diskettenformat 
und liest die vier entsprechenden 
Directorysektoren ein. 

Danach wird Ihnen das komplette 
Verzeichnis aller Fileeinträge aus¬ 
gegeben. Ein „+“ hinter dem jewei¬ 
ligen Extend zeigt an, daß das File 
gültig ist. Ein signalisiert, daß 
dieses File gelöscht ist. Dabei ist 
nun folgendes von großer Wichtig¬ 
keit: Beim Löschen mit ERA wird 
nur die User-Nummer auf &E5 ge¬ 
setzt und dadurch auch die zugehö¬ 
rigen Blöcke freigegeben. Das Pro¬ 
gramm selbst ist aber noch da, wenn 
noch nicht neu auf diese Diskette 
geschrieben wurde. Im Programm 
„FRETTER“ des nächsten Kapitels 
wird dies ausgenützt. 

Denken Sie deshalb bitte immer 
daran, wenn Sie Disketten weiterge¬ 
ben und nicht wollen, daß plötzlich 
jemand über Ihre Programme oder 
Daten verfügt. Wie schnell diese zu¬ 
rückgeholt sind, können Sie bald 
selbst sehen. Nach der Ausgabe al¬ 
ler Fileeinträge werden Sie aufge¬ 
fordert, eine Filenummer einzuge¬ 
ben, wenn Sie mehr darüber wissen 
wollen. Damit ist die in Klammer 
stehende Hexadezimalzahl gemeint, 
die gleichzeitig auch die laufende 
Nummer im Directory-Eintrag dar¬ 
stellt. 

Nachdem Sie eine entsprechende 
Nummer eingegeben haben, erfah¬ 
ren Sie Usernummer, die benutzten 
Blöcke, die Verteilung über die Sek¬ 
toren usw. Nun können Sie auswäh¬ 
len, ob Sie andere Einträge ansehen 
wollen, oder ob dieses File geladen 
werden soll. Das Einladen eines Fi¬ 
les kann nun z. B. zu Programmier¬ 
zwecken geschehen. Aber auch an¬ 
dere Gründe für einen derartigen 
Ladevorgang kann es geben. Z. B. 
Retten von teilweise schon über- 
schriebenen Files, wenn der FRET¬ 
TER nicht mehr in der Lage ist alles 
korrekt zurückzuholen und noch 
weitere Gründe. 

Probieren lohnt sich... 

Lothar MiedeJ 

13 









Lilst-lng : Reader 


100 'READER (c) by LM 
110 ' 

120 MODE 2:MEM0RY &2FFF:PRINT''Programm: READER 
130 ' 

140 PRINT"Dieses Programm liest alle File-Eintraege in einen Buffer ab &3000. 
150 PR/NT"Danach koennen weitere Informationen ueber die Eintraege abge- 
160 PRlNT"rufen werden. Dies betrifft z.B. die User-Nummer, die File-Namen 
170 PRlNT'und die Bioecke, ueber die das Jeweilige File verteilt ist. 

180 PRlNT^Ansch1iessend kann das File eingelesen werden, um z. B. fuer 
190 PRINT”Untersuchungen oder fuer einen 'Eprommer' die Daten im Speicher 
200 PRlNT”stehen zu haben. 

210 PRlNfDie Bufferadresse wurde mit &3000 gewaehlt, da ein handelsueblicher 
220 PR1NT"EPR0HMER diese Bufferadresse benoetigt. 

230 PRINT^Die Maschinencoderoutine SECTOR muss als Binaerfile vorliegen! 

240 PRlNTiPRINT”Bitte eine Taste drueoken"tCALL t<BB06:CLS 
250 ' 

260 ' 

270 'Adressen fuer Maschinenprogramm 

280 aktdrivemc=tiA702sbefehlmc=&A622:buffermc=S(A629:drivenmc=&A626 
290 formsemc=ieA628itrackmc=&A627:mcstart=ttA600 
300 ' 

310 buffer$='*3000'':' Beginn des Einlesebereiches 

320 ' 

330 DIM track(16),sector(16):' maximal 16 KB 

340 ' 

350 IF PEEK(&A600) = 58 THEN 380 

360 LOAD''sector. bin", &A600:’ Naschinencode einiesen 

370 ' 

360 PRINT"Bitte die entsprechende Disk einlegen und Taste druecken":CALL &BB06 
390 ' 

400 'Dieser kleine Trick hilft das Format zu erkennen 
410 OPENOUT"dummy":CLOSEOUT:drive=PEEK(aktdrivemc) 

420 ' 

430 'je nach Drive das entsprechende Format abholen 

440 IF drive = 0 THEN form = PEEK(&A89F)-1:' Diskformat drive 40 abholen 
450 IF drive = 1 THEN form = PEEK(&A8DF)-1:' Diskformat drive 40 abholen 
460 ' 

470 'Den durch das Format bedingten Offset festlegen 
480 IF form =S(C0 THEN offset =0:fo$="Data-Only-Format 
490 IF form =&40 THEN offset =2:fo$="Systemformat 
500 IF offset = 2 THEN track =2 
510 ' 

520 'Werte fuer Bufferadresse berechnen 

530 bufflow=VAL("&"+RIGHT$(bufferi, 2)):buffhigh=VAL("+LEFT$(buffer$,2)) 

540 ' 

550 ' 

560 '* Komplettes Inhaltsverzeichnis einiesen x 
580 sector = sector +1 

590 GOSUB 1800:' Sector einiesen 

600 ' 

610 ' Falls Sektor = 4, dann ist komplettes Inhaltsverzeichnis eingelesen 
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620 IF sector=4 WEN 710 
630 • 

640 'Buffer um 2*256 = 512 Bytes erhoehen 
650 buffhigh=buffhigh+2tG0TQ 580 
660 ' 

670 '**********************•******* 

660 '* Nun Auswertung und Ausgabe » 

690 '**********»******************* 

700 ' 

710 lesezeiger =VAL(''&''■^buffer$):CLS 

720 PRINT'Verzeichnis der File-Eintraege (+ =gueltig/- =geloescht)”:PRINT 
730 blcnt=0:filename$='"* 

740 usernummer=PEEK(lesezeiger) 

750 IF usernummer=LE5 WEN fi}e$=" File geloescht 

760 IF usernummer<&16 WEN file$='’ +" 

770 ' 

780 ' File-Namen holen 

790 FOR i = Iesezeiger+1 TO lesezeiger*12 
600 z$=CHR$(PEEK(i)) 

810 ' 

620 ' evtl, gesetzte Bits ausblenden 

630 IF ASC(z$)>128 THEN z$=CHR$(ASC(z$)-64)'.GOTO 830 

640 filename$=filename$+z$ 

650 NEXT i 

660 filename$=filename$^^file$ 

870 lesezeiger =Iesezeiger+32 
860 ' 

890 'Pruefung ob letzter File-Eintrag 

900 IF LEFT$(filename$, 1)=CHR$(101) THEN fz=65:G0T0 940 
910 fz=fz-H iPRINT filename$;''(''HEX$(fz,2)'') 

920 fi Iename$='"' 

930 ' 

940 IF fz<64 THEN 740 
950 • 

960 ****************************** 

970 '* Alle Elntraege ausgegeben * 

980 '*************»*************** 

990 ' 

1000 PRINT'.PRINT: INPUT" Informationen ueber welches File 
1010 f$=''&''*f$:fz=VAL(f$):filename$='"’ 

1020 ' 

1030 lesezeiger= VAL ("& '•+buffer$) + (fz-1) *32 
1040 • 

1050 usernummer=PEEK(lesezeiger) 

1060 ' 

1070 'Namen holen 

1060 FOR i = 1 esezeiger+l. TO I esezei ger+12 
1090 z$=CHR$(PEEK(i)) 

1100 IF ASC(z$)>126 THEN z$=CHR$(ASC(z$)-64):GOTO 1100 
1110 fi1ename$=fi1ename$+z$ 

1120 NEXT i 
1130 ' 

1140 CLS:PRlNT''Informationen ueber : "fi 1 ename$f 1 "Eintrags-Nr. ' "fziPRINT 
1150 FOR i =0 TO 16:track(i)=0:sector(i)=0:NEXT 
1160 1esezeiger=Iesezeiger+12:dirnum=PEEK(Iesezeiger) 
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1170 Iesezeiger = }esezeiger-^3:records=PEEK(]esezeiger) 
ir80 Jesezeiger=Iesezeiger+1 
1190 * 

1200 PRINT^User-Nummer • ^^usernummer; ^ Directory-Eintrags-Nummer t ^äirnumtPRINT 
1210 PRINT^Das Fils ist ueber folgende Bioecke verteilt: ^:PR1NT 
1220 py=PEEK(1esezeiger) 

1230 IF pw=0 WEN PRINT: GOTO 1290 
1240 IF py=229 THEN PRINT: GOTO 1290 
1250 PRINT HEX$(pw,2), ; :blcnt=blcnt-hl 
1260 sector(blcnt)=pw 
1270 Iesezeiger=lesezeiger^l:GOTO 1220 
1280 ' 

1290 PRINT:PRINT"Dies entspricht folgenden Track- u. -Sector-Nummern (T,S/T,S) 
1300 ges$=^”:FOR i = 1 TO 15:IF sector (i)=0 THEN i=16:G0T0 1390 
1310 ' 

1330 * Tracks und Sectoren aus Block-Nummer berechnen 
1350 b=sector(i) 

1360 bn= (b^2-i-offset^9) +i track=FIX(bn/9) :sector=bn-tracki^9 

1370 GOSUB 1490:PRINT track; ^sector ; :GOSUB 1540:sector =sector^l 

1380 GOSUB 1490:PRINT trackIsector,l:GOSUB 1540 

1390 NEXT i: PR INT 

1400 ' 

1410 PRINT:PRINT”Bytes It. Eintrag : ^records^l28:PRINT 

1420 PRINT:PRINT^das sind ^blcnt^ i^l K, und entspricht ^records" Records.** 

1430 PRINT:PRINT**Infos ueber anderes File (j/n) ?" 

1440 a$=LOUER$(INKEY$):IF a$=**** THEN 1440 ELSE IF a$=**n** THEN 1560 
1450 IF a$<>**3** THEN 1440 
1460 fz=0:GOTO 710 
1470 * 

1480 *bei Berechnung Korrekturen vornehmen 
1490 IF sector >9 THEN sector=l: track=track'*-l 
1500 IF sector -0 THEN sector=9:track=track-l 
1510 RETURN 
1520 * 

1530 *String fuer spaeteres einiesen zusammenbauen 

1540 t$=HEX$(track,2) :s$=HEX$(sector,2) :ges$=ges$^t$’hs$:RETURN 

1550 * 

1560 PRINT:PRINT**Sol 1 dieses File geladen werden ? 

1570 a$=LOyER$(INKEY$):IF a$=*^** THEN 1570 
1580 IF a$<>**j** THEN 1750 
1590 * 

1600 * File wird ab Bufferbeginn -Sector fuer Sector- eingelesen 
1610 PRINT:PRINT**Jetzt lade ich: 

1620 bufflow=VAL(**St**-hRlGHT$(buffer$,2)):bLLffhigh=VAL(**S<**^LEFT$(buffer$,2)) 

1630 * 

1650 String wieder zerlegen und Einlesevorgang ^ 

1670 FOR i = 1 TO LEN(ges$) STEP 4 
1660 g$=MID$(ges$, i,4):PRINT g$, 

1690 track=VAL(**&**^LEFT$(g$,2) ) :sector = VAL(*^&***RIGHT$(g$,2)) 

1700 GOSUB 1800:buffhigh=buffhigh-^2 
1710 NEXT i :PRINT:PRINT 
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1720 ' 

1730 PRlNT”Ihr Programm steht nun von "buffer$( 

1740 PRINT" bis "HEX$(butfhigh-l)+"FF im Speicher ! 

1750 END 
1760 ' 

1 770 '*j(jf#*jfjif**#***»#jf*jif<Jf*JfÄ»jf*Ä#*#*#**»#«»********»*********************** 
1780 '* Uerte fuer Einlesevorgang uebergeben und Maschinenroutine aufrufen * 

1800 sßcforin =foriii-f‘S6ctor’P0KE (buff ernte) ß buff low^POKE (buf ferntc-f-l ) p buff high 
1810 POKE drivenmc, drive:POKE trackmc, track:POKE formsemc,secform:CALL mestart 
1820 RETURN _ 


I_,ls'tlrtg: READSECl 


100 '* READSECl * 

110 • 

120 MODE 2:MEM0RY &8FFF:PRINT"Programm: READSECl 
130 ' 

140 'Adressen fuer Maschinenprogramm 

150 aktdrivemc=t/A 702:befehlmo=tiA622:buffermc=ttA629:dri venmc=itA626 
160 formsemc=&A628: trackmc=&A627:mcstart=gtA600 
170 • 

180 buffer$="9000":' Beginn des Einlesebereiches 

190 form=&C0!' Code fuer Format 

200 • 

210 LOAD"sector. bin", &A600:' Maschinencode einiesen 

220 ' 

230 PRlNT"Bitte die entsprechende Disk einlegen und Taste druecken" 

240 CALL &BB06 
250 ' 

260 'Werte fuer Bufferadresse berechnen 

270 bufflou=VAL("&"+RIGHT$(buffer$,2)):buffhigh=VAL("&"*LEFT$(buffer$, 2)) 
280 ' 

290 sector = sector +l:' Sektor 0 gibt es nicht ! 

300 GQSUB 440:' 1. Sector einiesen 

310 ' 

320 CLS:PRINT STRING$(80, ' Schirm loeschen + Strich ausgeben 

330 beginn=&9000:' Start fuer Auslesen festlegen 

340 ' 

350 'Ausleseschleife 

360 FOR i = 0 TO 15:adr = i+beginn:wert=PEEK(adr): PRINT HEX$(wert,2)!" "} 
370 IF wert <&20 THEN wert=32 

380 asci$=asci$*CHR$(wert):NEXT:PR!NT" "}asci$:asci$="" 

390 z=z+16:IF z=32 THEN PRINT STRING$(80, "-"):z=0 

400 IF adr < &9000+511 THEN beginn=beginn+16:G0T0 360 ELSE END 

420 '* Werte fuer Einlesevorgang uebergeben und Maschinenroutine aufrufen * 

440 seeform =form-i-sector:POKE (buf ferme), buff low :POKE (buf fermc+1),buff high 
450 POKE trackmc, track:POKE formsemc, secform’.CALL mestart:RETURN 
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Arbeiten mH Diskette (4) 


Wieder bauen wir auf die schon 
erworbenen Kenntnisse auf und 
schreiben nun ein Progranun, über 
dessen Sinn Sie sich wahrschein¬ 
lich erst dann, wenn Sie es einset- 
zen müssen, richtig freuen können. 
Ich habe dem Programm den Na¬ 
men FRETTER (Abkürzung von 
Fileretter) gegeben, da er am deut¬ 
lichsten zeigt, was mit dem Pro¬ 
gramm erreicht werden kann. 

Sie können damit versehentlich 
gelöschte Files wieder zurückho¬ 
len, also retten. Voraussetzung ist 
allerdings, daß Sie nach dem 
Löschvorgang noch keine weiteren 
Files auf diese Diskette geschrie¬ 
ben haben, denn sonst ist die Ret¬ 
tung fraglich. 

Schon in unserem ersten Heft ha¬ 
ben wir ein Programm veröffent¬ 
licht, das diesen Zwecken dient. 
Hierbei durften die Files (Program¬ 
me] aber nicht länger als 16 KB sein. 
Außerdem kann dieses Programm 
nur unter CP/M eingesetzt werden. 
Mit dem zu diesem Artikel gehören¬ 
den Programm ist diese Einschrän¬ 
kung nicht mehr gegeben, denn je¬ 
der Fileeintrag kann direkt bearbei¬ 
tet werden. 

Ein Plädoyer für BASiC 

Außerdem wird mit diesem Pro¬ 
gramm (wie auch mit vielen ande¬ 
ren dieses Heftes) ganz klar aufge¬ 
zeigt, was mit Basic, unterstützt 
durch Maschinensprache, möglich 
ist. 

Mir darf niemand erzählen, daß Ba¬ 
sic eine veraltete oder schlechte 
Programmiersprache sei. Egal ob 
„Turbo-Fortran", „Quick C“, „Maxi- 
PL“, „XZ-Pascal“, „Forth XX“ oder 
wie auch immer eine Hochsprache 
heißt, derjenige, der seinen Rech¬ 
ner kennt und Maschinensprache 
beherrscht, programmiert je¬ 
den „Hochsprachenprogrammierer“ 
auch mit Basic in „Grund und Bo¬ 
den“, wenn er Maschinensprache- 
module zur Basicunterstützung ein¬ 


setzt. Dies soll Sie aber nicht davon 
abhalten, auch andere Program¬ 
miersprachen zu erlernen und ein¬ 
zusetzen, denn auch diese haben ih¬ 
re Vorteile und Vorzüge. 

Daß aber von „Sprachumsteigern“ 
immer mitleidig auf die etwas „zu¬ 


rückgebliebenen“ Basicprogram- 
mierer herabgesehen wird, das soll¬ 
te eigentlich nicht sein! Schließlich 
war es vor allem Basic, das zu dieser 
enormen Verbreitung der Computer 
(in privaten Händen] geführt hat. 
Und nur dadurch war der Sieges¬ 
und Einzug der Computer in fast 
jeden Haushalt möglich. 

Ich jedenfalls programmiere (neben 
anderen Hochsprachen] sehr gerne 
in Basic, vor allem weil es sehr 
schnell geht und trotz des verrufe¬ 
nen Spaghetticodes übersichtlich 
ist, wenn sich der Programmierer 
etwas Mühe gibt. Diejenigen die an¬ 
derer Meinung sind, bitte ich um 
Tolerierung meiner Ansicht. 
Beinahe hätte ich doch glatt verges¬ 
sen, zu erwähnen, daß bei einer der 
modernen Hochsprachen, nämlich 
bei Dr. LOGO unter CP/M 2.2, glatt 
vergessen wurde, eine Druckeraus¬ 
gabe einzubauen. 


Genug der „Frotzelei“ und Spaß bei¬ 
seite, wer andere, weil sie nur in der 
einen oder anderen Programmier¬ 
sprache programmieren können, 
nur schiefen Blickes würdigt, zeigt 
nur, daß er eine gehörige Portion an 
Intoleranz besitzt, aber nicht mehr. 


Zurück zum Thema. Mittels des be¬ 
reits bekannten (also unseres erar¬ 
beiteten] Maschinensprachemoduls 
und einem weiteren Basicteil ha¬ 
ben Sie die Möglichkeit, jedes Ihrer 
versehentlich gelöschten Disketten¬ 
files wieder für gültig zu dekla¬ 
rieren. 

Ändening der Use^Numlller = 
Usdiung? 

Dies liegt ganz einfach daran, daß 
bei einer „Löschung“ durch ERA 
nicht wirklich gelöscht wird. Das 
einzige, was dabei verändert wird, 
ist die User-Nummer im Fileeintrag! 
Wie Ihnen ja bereits bekannt ist, 
können die User-Nummern zwi¬ 
schen 0 und 15 liegen. Bei Lö¬ 
schung eines Files geschieht nun 
nichts anderes als die Änderung 
dieser Nummer in &E5. Wird diese 


ij - tiwidwit jg rilrfw tr*eyy. ( IIH:fcirnwiwr) Imit: SB 
i .f,. ^ Dll^ EXT EN M Muk 



EiB^aiswMcr (Ql) des u rettenden Files (B:ende): ? | 
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Usernummer wieder auf einen „gül¬ 
tigen“ Wert gesetzt, ist das File wie¬ 
der da! Was geschieht, wenn Sie 
diesen Wert oberhalb 15 aber nicht 
mit &E5 belegen, können Sie durch | 
eigene Experimente feststellen. Ich 
habe bisher nur feststellen können, 
daß dies äußerst interessante 
Aspekte eröffnet. Werden also die 
zusammengehörenden Fileeinträge 
auf eine „gültige“ Usernummer ge¬ 
setzt, dann ist eine Löschung rück¬ 
gängig gemacht. Das Programm 
selbst ist so übersichtlich in der 
Darstellungsweise, daß sich größere 
Erklärungen hierzu erübrigen. Auf 
einen kleinen Trick in diesem Pro¬ 
gramm will ich Sie aber doch auf¬ 
merksam machen. Die CPCs haben 
eine Firmware-Routine, die es er¬ 
möglicht invertierte Zeichendarstel¬ 
lungen zu bewirken. Diese Routine 
steht in Zeile 1270 und wird zur 
Anzeige der gültigen Files benutzt. 
Interessant ist für Sie aber auch, daß 


Sie bei Ihren bisher gekauften Pro¬ 
grammdisketten Files sehen kön¬ 
nen, die Sie bisher nicht sahen, 
bzw. die gegen Löschen geschützt 
waren. Dies kann außer an einer ma¬ 
nipulierten User-Nummer auch an 
gesetzten 7. Bits im File-Namen lie¬ 
gen. Gleiches gilt auch bei gegen 
Löschen geschützten Files. Sehen 
Sie sich dies ruhig etwas genauer 
an. Aber ändern Sie nichts an der¬ 
artigen Originaldisketten, denn der 
Programm Verlust kann die Folge 
sein! Daß Sie mit dem Programm 
FRETTER auch Files löschen kön¬ 
nen, dürfte auch klar sein, denn Sie 
brauchen die Usernummer nur auf 
&E5 setzen, dann ist es schon pas¬ 
siert. Die Bedienung des Program¬ 
mes selbst ist so einfach, daß sich 
dies aus dem Programmlauf selbst 
ergibt. Spielen Sie aber anfangs 
nicht unbedingt mit Ihren wertvoll¬ 
sten Disketten. Ein kleiner Fehler 
beim Abtippen des Programmes 


kann unangenehme Folgen haben. 
Nehmen Sie gerade beim „Üben“ 
eine wirkliche Übungsdiskette. 

Widitig für 6128-Besitzer 

Zum Schluß noch ein Hinweis für 
CPC-6128-Besitzer, die außerdem 
noch den MAXAM angesteckt ha¬ 
ben. Bei mir gab es nur bei diesem 
Programm sporadisch auftretende 
Fehler bei einem zweiten Pro¬ 
grammlauf. Da dieser Fehler nur 
sporadisch auftrat, konnte ich den 
Grund hierfür noch nicht finden. 
Der Fehler machte sich insofern be¬ 
merkbar, daß nach Rückkehr aus 
dem Maschinenprogramm ein Syn- 
tax-Error gemeldet wurde. Die 
ROM-Select-Nummer hatte nach 
dieser Fehlermeldung den Wert 10. 
Am 464 konnte ich diesen „komi¬ 
schen“ Effekt nicht feststellen. 

Lothar Miede! 


ListiiTigs Fretter - Ein Programm zur Filerettung 


100 

110 FRETTER = Disk^Fi Ie-Retter fuer die CPC*s (c) by LM ^ 

130 ' 

140 MODE ZiMEMORY &9DFF:G0SUB 1270:PRINT"Programm: FILE-Retter”:G0SUB 1270 
150 ' 

160 'Adressen und Werte fuer Maschinenprogramm 

170 aktdrivemc=&A702:befeh]mc=&A622:buffermc=&A629:drivenmc=&A626 
180 formsemc=&A628:trackmc=&A627:befeh]=&84:mcstart=&A600 
190 ' 

200 'Spaeter benoetigte Variable festlegen 
210 mi$=” -":pl$='' : tr$=STRING$ (79, 

220 ' 

230 'Maschinenprogramm einiesen falls Pruefbyte nicht ok! 

240 adr=mcstart 

250 c=PEEK(adr):'Pruefbyte holen (Maschinenprg vorhanden ?) 

260 IF c=56 WEN 300:'Sprung da Pruefbyte stimmt 
270 LOAD''sector.bin'',&A600 
280 ' 

290 'Beginn des Bufferbereiches 
300 buffer$=''9E00'' 

310 ' 

320 PRlNT:PRINT''Bitte entsprechende Diskette einlegen und Taste druecken" 
330 CALL &BB06 
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340 ' 

350 OPENOUT ”dummy**:CLOSEQUT:CLS:' pruefen, welches Diskformat 
360 drive=PEEK(aktdrivemc) 

370 IF drive = 0 WEN form =PEEK(&A89F)-1:'Diskformal abholen und merken 
380 IF drive = 1 WEN form =PEEK(&A8DF)-1:'Diskformat abholen und merken 
390 IF form =&C0 WEN offset=0ifo$-''Data-onIy'' 

400 IF form =&40 WEN offset=2:fo$=''CP/M oder Vendor 
410 ' 

420 '******** 

430 '* eigentlicher Start und Uiedereinsprung * 

450 'Werte fuer Bufferadresse berechnen 

460 buffIow= VAL ( "& •'+RIGHT$(buffer$, 2) ) tbuffhigh= VAL (''&''+LEFT$(buffer$, 2) ) 
470 sector=0:lF flag=l WEN befehI =&85:flag=0 
480 ' 

490 '*******)(* 

500 '* Komplettes Inhaltsverzeichnis ei niesen oder schreiben * 

510 '**»**)nn(M**i(***)(*int***»**)()i**K*innn(n*i(*)H(im*******)nn(ninn( 

520 sector = sector +1 
530 track=offset 

540 GOSUB 1210!’ Sector einiesen oder schreiben 

550 ' 

560 ' Falls sector = 4, dann ist das Inhaltsverzeichnis komplett 
570 IF sector=4 WEN 650 
580 ' 

590 buffhigh=buffhigh+2:G0T0 520 
600 • 

610 '*i(iH(i(*iH(****)H(**********iti(*i(** 

620 '* Nun Auswertung und Ausgabe * 

630 
640 • 

650 lesezeiger =VAL(''&''+buffer$):CLS 

660 PRlNT''Verzeichnis der Fi le-Eintraege (UN=Usernummer) "! 

670 PRINT" Format: ”;:GOSUB 1270:PRINT fo$:GOSUB 1270:PR1NT 

680 PRINT"Name EXT EN UN Name EXT EN UN Name EXT EN UN"; 

690 PRINT" Name EXT EN UN": PR INT tr$ 

700 bIcnt=0:fiIename$="" 

710 usernummer=PEEK(lesezeiger) 

720 IF usernummer =8<E5 THEN file$=mi$:' File geloescht 

730 IF usernummer<&16 THEN fiIe$=pl$:' File nicht geloescht 

740 ' 

750 ' File-Namen holen 

760 FOR i = lesezeiger+1 TO Iesezeiger+12 
770 z$=CHR$(PEEK(i)) 

780 filename$=fiJename$+z$ 

790 NEXT i 

800 lesezeiger =1esezeiger+32 
810 ' 

820 'Pruefung ob letzter File-Eintrag 

830 IF LEFT$(filename$,l}=CHR$(&E5) THEN fz=65:G0T0 910 
840 fz=fz+l 
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850 IF file$=pl$ THEN GOSUB 1270:' File gueltig deshalb Text invertieren 
860 PRINT LEFT$(filename$, 8 );" "!:PRINT RIGHT$(filenawe$, 4 )/ 

870 PRINT " •'HEX$(fz, 2); :PRINT " "HEX$(usernvmmer,2)" 

880 IF file$=pl$ THEN GOSUB 1270:' File gueltig deshalb Text invertieren 
890 PRINT" "!:filename$="" 

900 ' 

910 IF fz<64 THEN 710: 'noch keine 64 Directory-Eintraege 
920 PRINT:PRINT tr$ 

930 ' 

940 

950 Alle Eintraege ausgegeben x 

960 

970 ' 

980 PRINT:INPUT"Eintragsnummer (EN) des zu rettenden Files (0=ende): ";f$ 
990 f$=LOUER$(f$):IF f$="0" THEN END 
1000 f$="&"*f$:fz=VAL(f$):filename$="" 

1010 ' 

1020 lesezeiger=VAL("&"+buffer$)+(fz-1)x32 
1030 ' 

1040 usernummer=PEEK(1esezeiger): merker =Iesezeiger 
1050 ' 

1060 'Namen holen 

1070 FOR i = lesezeiger+1 TO lesezeiger+12 
1080 zt=CHR$(PEEK(i)) 

1090 IF ASC(z$)>128 THEN z$=CHR$(ASC(z$)-64):GOTO 1090:' Gesetzte Bits raus 
1100 fi lename$=ti Iename$-t-z$ 

1110 NEXT i 
1120 ' 

1130 CLS:PRlNT"Gerettet werden soll : "filename$,l 

1140 PRINT"Eintrags-Nr. : "fz:PRINT 

1150 INPUT"Usernummer"Susernummer 

1160 POKE merker,usernummer 

1170 fz=0 

1160 flag=l:GOTO 450 
1190 ' 

1200 ' )(*)iX**X**i(X****X»XX**i(*******XXX*XXX»»**X*»»*X*»X**»**X**X*X******** 
1210 seeform =form+sector:POKE bufferme, buff 1ow:POKE (buffermc-H),buffhigh 
1220 POKE drivenmc, drive:POKE trackmc, track:POKE formsemc,seeform 
1230 POKE befehlmc,befehl:CALL mestart: RETURN 
1240 • 

1260 ' Schrift invertieren 
1270 CALL &BB9C:RETURN 
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Arbeiten mit Diskette (5) 


In diesem Teil der Grundlagenarti¬ 
kel über die Floppy gehe ich auf 
ein besonders heikles Thema ein. 
Nämlich auf das Thema Pro¬ 
grammschutz, Viele Hersteller von 
Software versuchen, Ihre Produkte 
vor dem Einblick fremder Augen 
zu schützen. Die Gründe hierfür 
sind mir bestens bekannt. 

Auch ich habe eine nicht gerade 
gute Meinung von Personen, die 
mit der Arbeit anderer versuchen, 
Geschäfte zu machen. U^as ist aber 
mit demjenigen, der sein Pro¬ 
gramm mit dem CPC-Schutz verse¬ 
hen hat und vergaß, eine offene 
Kopie abzuspeichem? Diesen CPC- 
Besitzem soll mit dem zu diesem 
Artikel gehörenden Programm ge¬ 
holfen werden. Aber vor allem 
auch andere Punkte bezüglich 
Softwareschutz und Copyrights 
werden angesprochen. Ein wirk¬ 
lich „heißes” Thema. 

Und deshalb zählen auch solche 
Informationen zu den Grundlagen. 

Einmal abgesehen von der Compu¬ 
terei, zeigt die Geschichte der Evo¬ 
lution, daß nur durch Kopie guter 
Eigenschaften ein Weiter- oder Fort¬ 
bestand gesichert ist. All dies trifft 
eigentlich für alle Lebensbereiche 
zu. Es wäre ja auch unsinnig, jedes¬ 
mal das „Rad“ neu erfinden zu wol¬ 
len. Andererseits aber ist es sicher¬ 
lich das gute Recht der Hersteller 
und Ersteller von Produkten, für die 
geleistete „Arbeit“ auch gebührend 
entlohnt zu werden. Dies gilt auch 
für die Hersteller von Soft- und 
Hardware. 


Eine unbefriedigende SAuation 

Durch Copyrights wird versucht, 
Mitbewerbern den Weg zu fremden 
„Früchten“ zu verwehren. In man¬ 
chen Fällen aber nimmt dies For¬ 
men an, die leider zum Nachteil der 
eigentlichen Kunden ist. 

Wenn es so weitergeht, wie es im 
Augenblick aussieht, dann unterlie- 

zz 


gen irgendwann sogar einzelne 
simple Programmroutinen einem 
Copyright, weil ein guter Sachver¬ 
ständiger in diesen irgendwelche 
außergewöhnliche geistige Leistung 
„entdeckt“. Kopiert wurde immer 
und wird es immer werden. Im Fal¬ 
le der Computer eben manchmal 
auch zum Schaden der Software¬ 
häuser. Andererseits aber gibt es das 
schon fast klassische Beispiel des 
Programmes WORDSTAR, dem 
wohl meistkopierten Anwenderpro¬ 
gramm für Mikrocomputer. Trotz al¬ 
ler Kopien, war und ist der Verkauf 
dieses Programmes ein „Bombenge¬ 
schäft“. 

Deswegen gleich einmal ein paar 
Takte zum Thema „Raubkopierer“. 
Ich persönlich zähle zu den Raub- 
kopiererii eigentlich nur diejenigen, 
die dies tun um Software an denen 
sie keine Rechte besitzen, weiterzu¬ 
verbreiten. Egal ob mit oder ohne 
Gewinn. Solange jemand - für sich 
- nur „Arbeitskopien“ von Program¬ 
men macht, die er legal erworben 
hat, sehe ich eigentlich keine straf¬ 
bare Handlung. Die rechtliche Si¬ 
tuation ist aber viel komplizierter! 
An ein paar Beispielen will ich er¬ 
läutern, was ich damit meine und 
weshalb Sie sich - zu Ihrem eigenen 
Schutz - auf dem neuesten Stand 
der Dinge halten sollten. Da die 
Fachpresse laufend hierüber berich¬ 
tet, haben Sie die Möglichkeit 
hierzu. 

Lesen Sie weiter, welche Auswüch¬ 
se die ganze Copyrightsituation 
„treibt“. 

Manche Softwarehersteller erlau¬ 
ben nur eine Arbeitskopie. Andere 
gehen soweit, eine Arbeitskopie 
durch Schutzmaßnahmen, die nicht 
jeder umgehen kann, überhaupt 
nicht zuzulassen. Schlimm finde 
ich auch, daß in manchen Verkaufs¬ 
bedingungen steht, daß das erwor¬ 
bene Programm nur auf einem ein¬ 
zigen Rechner eingesetzt werden 
darf. Stellen Sie sich bitte einmal 
vor. Sie kaufen eine Schallplatte 
und diese dürfen Sie nur auf dem 
Plattenspieler abspielen, den Sie 


zum Zeitpunkt des Kaufes besaßen. 
Falls Sie zwei Plattenspieler besit¬ 
zen, was ist dann? Vielleicht haben 
Sie sogar in Ihrem Wochenend-Do- 
minizil einen weiteren Plattenspie¬ 
ler und dort dürfen Sie sich Ihren 
Lieblingssong ebenfalls nicht anhö¬ 
ren! Zurück zur Software. Was be¬ 
deutet dies eigentlich in dem Falle, 
daß Sie sich zu Ihrem CPC 464 auch 
noch einen CPC 6128 zulegen? Dür¬ 
fen Sie dann...? Oder Sie wollen ei¬ 
nem Bekannten, der sich wirklich 
nur informieren will, die Möglich¬ 
keit geben, sich einmal länger mit 
einem von ihm zum Kauf geplanten 
Programm zu beschäftigen? Das 
sind Punkte, die durch die Rechts¬ 
sprechung nicht voll geklärt sind. 
Ich weiß, daß die Hintergründe 
für derartige „Bestimmungsblüten“ 
schon einen tieferen Sinn haben. Es 
soll vor allem sichergestellt werden, 
daß große Firmen, die mehrere 
Computersysteme haben, auch für 
jedes System ein eigenes Programm 
kaufen sollen. Aber es ist oft noch 
schlimmer, denn manchmal können 
Sie auch lesen, daß Sie nicht das 
Programm, sondern nur die Nut¬ 
zungsrechte zum Betrieb auf einem 
Computer erworben haben. Können 
Sie nun diese Nutzungsrechte ver¬ 
schenken, weil Sie dieses Pro¬ 
gramm nicht mehr verwenden 
wollen? 

Wie sieht es aus, wenn Sie Ihren 
„alten“ Computer durch einen 
„Neuen“ ersetzen, dürfen Sie diesen 
Nachfolger mit den alten Program¬ 
men beglücken? Fragen über Fragen 
und in jedem Falle wäre — beim 
Auftreten eines Klägers - eine even¬ 
tuelle richterliche Entscheidung 
wahrscheinlich anders. Geht das 
nicht alles etwas zu weit? Sind hier 
nicht manche Bestimmungen völlig 
unsinnig? Betrachten wir das Ganze 
auch noch einmal von einer ande¬ 
ren Seite. Sie haben sich ein Pro¬ 
gramm gekauft, mit dem Sie Ihre 
Buchhaltungsaufgaben erledigen. 
„Fairerweise“ wurde Ihnen erlaubt, 
eine Arbeitskopie zu erstellen. 
Durch einen unglücklichen Zufall 
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wurde die Arbeitskopie unbrauch¬ 
bar. Da Sie aber das Original besit¬ 
zen, kein Problem. Original aus dem 
teuer-, einbruchs- und erdbeben¬ 
sicheren Panzerschrank geholt, mit 
einem Doppellaufwerk die Erstel¬ 
lung einer neuen „Arbeitskopie“ 
eingeleitet. Wenn Sie nun Pech ha¬ 
ben, kann Ihnen dasselbe passieren, 
wie ich es schon erlebt habe: Strom¬ 
ausfall! Dies muß nun nicht heißen, 
daß das Original zerstört wurde, 
aber ich habe es leider schon zwei¬ 
mal persönlich erlebt. Beide Lese-/ 
Schreibköpfe waren im „Disketten¬ 
zugriff“, durch den Stromausfall 
ging die Elektronik in einen Undefi¬ 
nierten Zustand. Der Erfolg, es wur¬ 
de kurzfristig auf beide Disketten 
geschrieben. Original und die halb¬ 
fertige Kopie waren unbrauchbar. 
Da es sich bei mir um eigene Daten¬ 
disketten handelte, hatte ich nach 
dem Vater/Sohn/Enkel-Prinzip gear¬ 
beitet. Deswegen war es nicht so 
tragisch. Als der Strom wieder da 
war und ich festgestellt hatte, daß 
beide Disketten unbrauchbar waren, 
nahm ich die „Sohn“-Diskette. Den 
Kopiervorgang wieder gestartet..., 
und nun dürfen Sie schmunzeln... 
Seitdem bleiben meine Computer 
an gewittrigen Sommerabenden 
ausgeschaltet. Anmerken möchte 
ich aber noch, daß es kein CPC war, 
mit dem ich dieses Erlebnis hatte. 
Falls Ihnen aber ein derartiges Miß¬ 
geschick mit Programmdisketten 
passiert, müssen Sie nun, nur weil 
mehrere Kopien nicht erlaubt wa¬ 
ren, das gleiche Programm noch¬ 
mals kaufen? Ich hoffe nur, daß in 
der nächsten Zukunft eine Lösung 
im Sinne der Programm-Kunden ge¬ 
funden wird. Vielleicht kann dies 
auf ähnliche Weise wie bei den Mu¬ 
siktonträgern geschehen (GEMA- 
Gebühren o. ä.]. Bis dies aber soweit 
ist, kann ich Ihnen nur empfehlen, 
passen Sie auf, daß Sie nicht durch 
Verstoß gegen Vorschriften oder Be¬ 
stimmungen in die Mühlen der Ju¬ 
stiz geraten. 

Auch ich muß nun aufpassen mit 
dem Programm PGOPY, denn es 
gibt Abmahnfirmen, die sich darauf 
spezialisiert haben, zum Beispiel 
gegen Anbieter von Backupsoftware 
vorzugehen, nur weil diese verges¬ 
sen haben, in der Anzeige darauf 
hinzuweisen, daß das angebotene 


Programm nur für Backups von | 
Software erlaubt ist, deren Kopier- I 
rechte man besitzt. „Beihilfe...“. Oft 
kommt es zwar nicht darüber dann 
zu einem Rechtsstreit, aber es sind 
seitens der Abmahnfirma Kosten 
angefallen, über die dann vielleicht 
ein Richter entscheiden muß. Des¬ 
halb weise ich nun ausdrücklich 
darauf hin, daß das Programm 
„PGOPY“ dieses Heftes nur zum Ko¬ 
pieren von Software benutzt wer¬ 
den darf, deren Rechte man besitzt. 

Save„Rame“,p - ist dies sinnvoli 

Doch nun wieder zum CPC. Was die 
Entwickler der CPC-Firmware dazu 
bewogen hat, die Möglichkeit vor¬ 
zusehen, ein Basic-Programm zu 
„schützen“ wird mir vermutlich im¬ 
mer ein Rätsel bleiben. Vergessen 
diese in höchsten Regionen schwe¬ 
benden „Koryphäen“ tatsächlich, 
daß alles was für ein Programm er¬ 
forderlich ist, auch durch irgend¬ 
welche Programmteile lesbar sein 
muß? Oder glauben diese, daß sie 
soweit oberhalb des allgemeinen 
Wissens schweben, daß andere, die 
sich mit Computern beschäftigen 
nicht in der Lage sind innerhalb 
kürzester Zeit solche Schutzmecha¬ 
nismen zu beseitigen? Ich weiß es 
nicht, eines aber ist mir klar, die 
Programmierer des „protectet“- 
Schutzes von Locomotive Software 
hatten sicherlich nicht bedacht, wie 
einfach beim CPC 464 dieser Schutz 
umgangen werden kann. Mein Auf¬ 
ruf deswegen an Programmierer von 
Firmware, laßt diesen Unsinn und 
implementiert dafür lieber eine 
Hardcopy-Routine. Gute Software 
braucht nicht geschützt zu werden, 
denn diese wird in ausreichenden 
Mengen gekauft. Ich erinnere nur an 
Wordstar. Auch gut gemachte 
Handbücher nützen mehr als solche 
Spielereien. Der einzige Effekt, der 
wirklich mit einer Schutzeinrich¬ 
tung dieser Art erreicht wird, ist 
der, daß ein Anwender sich vor sich 
selbst schützt und irgendwann ein 
eigenes Programm vor sich selbst 
,,versteckt“. Professionelle Software 
wird meist mit anderen Methoden 
geschützt. 

Nun wieder zum Sinne des Pro¬ 
grammes PGOPY. Auch mir ist es 


schon passiert, daß ich bei Spiele¬ 
reien ein Programm mit dem Zusatz 
„P“ geschützt habe, ohne vorher ei¬ 
ne offene Version abzuspeichern. 
Wollte ich nachträglich etwas am 
Programm ändern, gab es eigentlich 
keine „normale“ Möglichkeit mehr, 
dies zu tun. Nun ich habe ausrei¬ 
chende Kenntnisse um mir dann zu 
helfen. Was aber ist mit dem „ar¬ 
men“ Gelegenheitsprogrammierer, 
der den gleichen Fehler gemacht 
hat? Für den CPC 464 gibt es den 
wohl schon allgemein bekannten 
sogenannten „Readypatch“, der die 
Tatsache ausnutzt, daß der CPC 464 
ab und zu über sogenannte Indirec- 
tions arbeitet. Bei den Nachfolgern 
ist dies nicht ganz so leicht möglich. 



Aber auch diese Geräte haben die¬ 
sen Unsinn eingebaut. Deshalb also 
das Programm PGOPY. Allerdings 
habe ich das Programm so aufge¬ 
baut, daß die „unprotected“ Version 
auf die „Originaldiskette“ zurückge¬ 
schrieben wird. Eine Maßnahme, die 
ich für sinnvoll hielt. Für weiterhin 
sinnvoll hielt ich es, das Programm 
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nur als Basicloader abzudrucken 
und kein dokumentiertes Assem- 
blerlisting mitzuliefern. Bitte haben 
Sie Verständnis dafür. 

Zur Bedienung gibt es nicht viel zu 
sagen. Sie brauchen nur das Pro¬ 
gramm zu laden und zu starten, 
dann führt es Sie selbst weiter. Er¬ 


schrecken Sie aber nicht, wenn der 
CPC nach Erledigung seiner Arbeit 
plötzlich einen Reset durchführt. 
Geben Sie nach dem Reset CAT ein, 
dann sehen Sie, daß das geschützte 
Programm mit dem Extend .bak und 
das neue Programm mit .bas im In¬ 
haltsverzeichnis steht. Ich habe al¬ 


lerdings noch eine kleine „Sicher¬ 
heitsmaßnahme“ eingebaut. Es kön¬ 
nen nur geschützte Basicprogram- 
me mit dem Extent BAS bearbeitet 
werden. 

Sie können es trotzdem mit anderen 
Extends versuchen, aber ich garan¬ 
tiere für nichts. Lothar Miede! 


I-iis-tling s PCOPY 


100 ' 

110 * PCOPY ü 

120 ' if Ein Programm um versehentlich mit 'p' abgespeicherte Programme * 
130 ' ü wieder als normale Basicprogramme aut Di sc zurueckzuschreiben. * 

140 ' *)(**)( MiHUfifMiHHfifiUHtifiUtifM* 

150 ' 

160 MODE ZiMEMORY &9FFF:a=&A000:e=&A03D:zb=1000:e=e-H 

170 FOR i =a TO e:READ d$:lF LEFT$ (d$, 1 ) = THEN flag =1 

180 IF (flag AND ps<>VAL(d$)) THEN PRINT”Fehler in Zeile "zb^ltEND 

190 IF (flag AND i=e) THEN 240 

200 IF flag THEN i=i-l:zb=zb-H :ps=0:d$=”":flag = 0:GOTO 220 
210 d$=”&"+d$:POKE i,VAL(d$} :ps=ps + VAL(d$) : 

220 IF i < e THEN NEXT i 
230 ' 

240 CLS:PRINT”PCOPY wurde korrekt geladen !”:PRINT:PRINT 

250 PRINT”Bitte immer daran denken, dass Sie nur Software kopieren duerfen, 
260 PRlNT"wenn Sie auch die Rechte hierzu besitzen !":PRINT 
270 PRINT"Fal1s dies der Fall ist, geben Sie nun bitte 
260 INPUT"den Filenamen (ohne Extend!!) ein "ffilename$ 

290 IF LEN (filename$)>8 THEN PR1NT:PRINT CHR$(7) {"Fehler PR INT: GOTO 270 
300 IF LEN(filename$) < 8 THEN filename$=filename**CHR$(32):G0T0 300 
310 • 

320 FOR i = 1 TO 8:P0KE &A016+i, ASC(MID$(fi1enamet,i,1)):NEXT 
330 ' 

340 PRINT:PRlNT"Bitte legen Sie nun die entsprechende Diskette ein ! 

350 PRlNT"und druecken Sie eine Taste !":CALL StBB06:CALL &A000 
360 • 

1001 DATA 06,0C, 11,00,C0,21,17,A0,CD,77,BC,21,70,01,CD,83,&059D 

1002 DA TA BC, CD, 7A, BC, C3, 23, A0, 66, 72, 65, 74, 74, 65, 72,20,2E, &078F 

1003 DA TA 62, 61, 73, 06,0C, 21,17, A0,11,00, C0, CD, 8C, BC, 21, 70, &0597 

1004 DA TA 01, ED, 5B, 6D, A 7, 3E, 00, CD, 98, BC, CD, 8F, BC, C7, &079B 
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Die Gewinner unserer 
ComputeiSchau-Preisausschieiben! 


Veriosungsaktion 
„1 Jahr 

ComputerSchau“! 

Taschencomputer PC 1500A 

von Sharp: 

Siegfried Baller 
bei Zoeh 

Ringslebenstraße 2 
1000 Berlin 47 

Kurt Dankwart 
Reinhoid Klügei Hof Nr. 37 
5140 Erkelenz 

Horst Werner Alfeis 
Farnweg 1 
3002 Wedemark 

J. Bausewein 
Bramsaliee 39/l\/ 

2000 Hamburg 13 

Jochen Baumgärtner 
Hindenburgstraße 24 
8520 Erlangen 

Wolfgang Domres 
Heckenweg 25 
3006 Burgwedel 

Dieter Kasper 
Dipi.-ing. 

Robert-Koch-Straße 36 
2800 Bremen 61 

Manfred Kretzschmar 
Dipi.-Ing. 

Sudewiesenstraße 50 
3014 Laatzen 

Eugen F. Breuninger 
Karwendelstraße 5 
8038 Gröbenzeli 

Joachim Baatz 
Burkhardtstraße 4 
8501 Feucht 

Roif Bräuker 
Am Kindergarten 29 
5840 Schwerte 

Hans Bernhard 
Langerstraße 2/1 
8000 München 80 

V. Süß 

Wiederhoidstraße 22 
7000 Stuttgart 1 

Friedhelm Will 
Bahnstraße 30 
4174 Issum 1 


Oliver Voiz 
Dusestraße 13 
7000 Stuttgart 80 

Norbert Hettich 
Gauchachstraße 14 
7715 Bräuniingen 

Raif Schuize 
li. Paraileistraße 9 
4630 Bochum 1 

Franz Jaquet 
Am Buchet 10 
8035 Gauting 

Joachim Pöhimann 
Meisenweg 37 
8526 Bubenreuth 

Manfred Wiiimek 
Haimhauser Straße 7 
8000 München 40 

ComputerSchau 9/85 

1. Preis: 1 Schachcomputer 

der Fa. Heaener & Glaser AG 

Roland Kehlenbach 
Scherpenberger Straße 19 
4130 Moers 1 

Franzis-Buchoutscheine: 

Peter Meusel 

Alte Marburger Straße 5 

6348 Herborn 

Gerd Nolden 
Albertstraße 90 
4000 Düsseldorf 1 

Bruno Marti 
Neubrückstraße 28 
CH-2555 Brügg (BE) 

Günter Fischer 
Feldstraße 13 
2081 Alveslohe 

Gerd Heydt 
Alter Stadtweg 47 
6602 Sbr.-Dudweiler 

Klaus Sperling 
Eversbuschstraße 188 
8000 München 50 

Wolfram Richter 
Zuckerberg 51 
5000 Köln 50 

Helmut Ramstötter 
Stutenanger 10 
8042 Oberschleißheim 


Gabriele Szklenar 
Rathausstraße 28 
7062 Rudersberg 

Stefanie Heibel 
Monumentenstraße 37 
1000 Berlin 62 


ComputerSchau 

10/85 

1. Preis: 1 Radiorecorder 

der Fa. Sharp 

Manfred Michels 
Knorrstraße 45 
8000 München 

Franzis-Buchoutscheine: 

Peter Hufnagl 
Hospitalstraße 9 
6086 Riedstadt 1 

Christoph Windmöller 
Uhlandstraße 96 
4500 Osnabrück 

Astley Andersson 
Mattiasg 12B/I 
S-81500 Tierp 

Gerd Sommer 

Kerner Straße 4 

7120 Bietigheim-Bissingen 

Willi Blum 
Bohlstraße 9 
7430 Metzingen 

Max Bauer 
Adlerstraße 86 
8300 Landshut 

Uwe Petsch 
Billhorner Deich 50 
2000 Hamburg 28 

Axel Hengemühle 
Erdeihofstraße 17 
4600 Dortmund 15 

Heinz Weigelt 
Proschwitzer Straße 12 
8950 Kaufbeuren 2 

Christoph Nebel 
Erlenweg 7 
2358 Kaltenkirchen 
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Sony^s Computer zum Kennenlemen. 

Mit einem Sony Hit Bit kann man ein 
Zum Beispiei große Literatur und ki< 


Von Haus aus beste Daten. 

Jetzt ist die Gelegenheit beson¬ 
ders günstig, die Computerwelt 
kennenzulernen und dabei ver¬ 
borgene Talente zu fördern. Mit 
dem Sony Hit Bit kriegen Ihre Texte 
plötzlich ganz einfach Format. 

Und farbige Grafiken und Tabellen 
entstehen wie von seibst. Der 
Sony Hit Bit bringt ailes mit, was 
man dazu braucht. 

HIT BIT 

Denn er funktioniert nach dem 
international festgelegten MSX- 
Standard. Das bedeutet Zugang 
zu allen Programmen und Zusatz¬ 
geräten wie Druckern oder 
Datenrecordern gleichen Stan¬ 
dards. Und eine beruhigende 
Zukunftssicherheit für Ihre Kauf¬ 
entscheidung. Was der Sony 
Hit Bit sonst noch alles auf dem 
Kasten hat, ganz kurz für die 
Kenner der Materie: Der HB75 D 
ist ein Z 80 A-Computer mit 
deutscher Schreibmaschinen- 
Tastatur. Sein 64 K-Byte Arbeits¬ 
speicher erlaubt auch die Verwen¬ 
dung anderer Betriebssysteme 
wie Z.B. MSX-Dos. 

Für spezielle 
ROM-gestützte 
MSX-Pro- 
gramme kann die gesamte 
Speichertiefe von 64 K zur Auf¬ 
nahme von Daten genutzt wer¬ 
den. Zusätzlich bietet der Sony Hit 
Bit einen 16 K-Byte großen Bild¬ 
speicher. Ein integriertes deut¬ 
sches Dateiprogramm, das 
spielend leicht Adressenlisten und 
Terminplanungen erstellen und 
verwalten hilft. Anwenderfreund¬ 
liche Sortier-, Such-, Transfer- 
und Druckroutinen. Und einen 
32 K-Byte MSX-Basic-lnterpreter, 
der das Erstellen eigener Pro¬ 
gramme mit Grafik und Sound auch 
ohne Kenntnisse des Betriebs¬ 
systems ermöglicht. Grafiken 
gibt der Hit Bit in 256 x 192 Bild¬ 
punkten und 16 verschiedenen 
Farben wieder. Der eingebaute 
Tongenerator mit 3 Tonausgän¬ 
gen und 1 Geräuscheffektgenera¬ 
tor hat einen Tonumfang von 
8 Oktaven. Eine 21polige RGB- 
Scartbuchse und eine öpolige 
DIN-AV-Buchse garantieren viel¬ 
seitigen und besten Anschluß an 
Fernseher und Monitor. Schnitt¬ 


MSX 




stellen für Audio-Cassetten- 
Recorder und Joystick, zwei MSX- 
Standard I/O-Interfaces und ein 
Druckerinterface sorgen für pro¬ 
blemlosen Anschluß an MSX- 
Peripheriegeräte. Das Hit Bit 
Zubehör umfaßt außer wichtigen 
Kabeln ein ausführliches MSX- 
Basic Programmierhandbuch, 
eine Einführung in MSX-Basic und 
Anleitungen zur Erstellung von 
Personenkarteien. 


Der Bitcorder SDC-500. 

Das kennen auch Computer¬ 
neulinge. Eine ganz normale 
Audio-Compact-Cassette. Zusam¬ 
men mit dem SDC-500 Bitcorder 
ergibt das einen von 3 Daten¬ 
speichern, die dem Sony Hit Bit 
als Langzeitgedächtnis dienen 
können. Der Bitcorder speichert 
große Datenmengen, ist beson¬ 
ders preiswert und leicht zu 
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/lenge machen 
i Kunstwerke. 



Die Sony 3,5 ZoH-Micro- 
Floppy-Diskette. 

Noch schnellere Zugriffszeiten als 
der Bitcorder erlaubt ein beson¬ 
ders flexibles und handliches 
Speichermedium. Die millionen¬ 
fach bewährte, 90 x 94 mm kleine 
3,5 Zoll-Micro-Floppydisk. 



Anwender schätzen ihre kompak¬ 
ten Abmessungen, die hervor¬ 
ragende Zuverlässigkeit und 
Benutzerfreundlichkeit. Trotz des 
begrenzten Formats bietet 
die bespielbare Micro-Floppy 
OM-D 3440 eine Speicherkapa¬ 
zität von 500 K-Byte - genug 
Platz für ca. 100 Seiten Text. 



Der Micro-Floppydisk- 
Drive HBD-50 D. 

Das Laufwerk zur Micro-Floppy- 
disk. Angeschlossen wird es, wie 
bei Sony üblich, ganz einfach 
mit einem Griff. Das dazu notwen¬ 
dige Interface ist in eine Cartridge 
integriert, die wie ein Stecker 
in den dafür vorgesehenen Slot 
am Computer gesteckt wird. Mit 


dem kompakten Micro-Floppy- 
disk-Drive können Sie blitzschnell 
Programme, Texte usw. speichern 
oder laden. Eine weitere inter¬ 
essante Speichermöglichkeit 
bieten die Data-Cartridges HBI-55. 
Diese Halbleiterspeicher zeich¬ 
nen sich durch besonders schnel¬ 
len Datenzugriff aus. 


Die Sony ROM-Cartridges. 

Auch die besonderen Talente des 
Sony Hit Bit stecken in Cartridges. 
Eine besonders pfiffige und 
praktische Lösung. Einfach eine 
dieser Cartridges in den dafür 
vorgesehenen Slot am Computer 
stecken und ab geht's im Pro¬ 
gramm. Die rein elektronisch 
gespeicherten Informationen 
stehen sofort zur Verfügung. 

Zum Beispiel das Programm 
HBS-H003C Home Writer. Sie 
schreiben einfach drauflos - kor¬ 
rigiert wird später. 

Sortieren, Radieren, Einfügen/ 
Auslassen, alles geschieht auf 
Tastendruck. Verschiedene Papier¬ 
größen, Schriftgrößen und so¬ 
gar Fbrmvordrucke können 
gespeichert und einfach mit dem 
Cursor, einem beweglichen 
Pfeilsymbol, ausgewählt werden. 
Sony’s Home Writer nimmt Ihnen 
lästige Arbeiten ab und läßt 
mehr Zeit für das Wesentliche. 
Die Cartridge HBS-HOOlC ist 
besonders bei farbigen Grafiken 
gut in Form. Sie bietet eine 
Anzahl von phantasievollen Bildern, 
die im Format verändert und 
mit Schrift verschiedener Größe 
und Farbe versehen werden 
können. Das fertige Kunstwerk ist 
dann über den Sony Vierfarb- 
Plotter F^N-C 41D reproduzierbar. 


Weil oft der erste Eindruck 
der entscheidende ist, hat 
Sony einige sinnvolle Hit 
Bit-Pakete zusammen¬ 
gestellt. Damit ist der Spaß 
am Computern program¬ 
miert. Beim Schreiben und 
Malen. Aber auch beim 
Spielen und Lernen. Und 
überhaupt. 



Computer 

“ÄJiau 


27 






















TEXT-PRO - Bn Text- 
«eiaibeiluiiaspraaninm 


Auch hier gilt, was wir schon beim 
Dateiverwaltungsprogranun ge¬ 
schrieben haben. Viele Leseran- 
und -rückfragen zeigten uns wie 
groß das Interesse an solchen Pro¬ 
grammen ist Deshalb auch hier ei¬ 
ne zweite Version eines Textverar¬ 
beiters. 

Eine der vielen Aufgaben, die mit¬ 
tels eines Computers erledigt wer¬ 
den können ist das „Ver-‘‘ und „Be¬ 
arbeiten“ von Texten jeglicher Art. 
Für fast jeden Computer werden 
mehr oder weniger gute und teure 
Programme hierfür angeboten. 
Nichts gegen Profi-Programme vom 
Typ „Wordstar Version xx“. Diese 
sind hervorragend für denjenigen, 
der beruflich „textet“. Sie bieten 
Möglichkeiten, die für „Berufs¬ 
schreiber“ nicht nur komfortabel, 
sondern auch erforderlich sind. 
Aber für den „Gelegenheitsschrei¬ 
ber“ sind die meisten dieser Pro¬ 
gramme zu leistungsfähig und meist 
auch zu schwierig in der Bedie¬ 


nung. Wer hat denn schon Zeit, sich 
in tagelanger Einarbeitungszeit mit 
den Features eines „Profitexters“ 
auseinanderzusetzen? 

Selbst wenn man sich aber diese 
Mühe gemacht hat, eine Woche spä¬ 
ter hat man den größten Teil der 
Bedienung wieder vergessen. Um 
dann einen Brief zu schreiben, der 
in wenigen Minuten geschrieben 
sein sollte, steckt man mehr Zeit in 
die wiederholte Einarbeitung des 
Programmes. Deshalb haben Pro¬ 
gramme wie das nachfolgende 
durchaus ihren positiven Sinn. 
Aber auch für „SelbsLprogramiiiie- 
rer“ bietet ein derartiges Programm 
viele Anregungen und Tips. Des¬ 
halb nachfolgend ein weiteres Text¬ 
verarbeitungsprogramm für Ihre zu¬ 
künftigen Schreiben. 

Programm-Beschreibung 
zum Programm TEXT-PRO 

Das Programm TEXT-PRO ist ein 
Textverarbeitungsprogramm mit 


den Möglichkeiten des Erstellens, 
Änderns, Formatierens und Druk- 
kens von Texten. Weiterhin verfügt 
es über einige Editier-Hilfen, wie 
das Einfügen, Löschen und Kopie¬ 
ren von Zeilen. 

Ein Systemmenü sorgt für die opti¬ 
male Ausnutzung der Bildschirm¬ 
farben, der Disketten- sowie der Ta¬ 
pefunktionen. 

Gedruckt wird mit einem Schnei¬ 
der-Drucker NLQ401. Das Druckme¬ 
nü ist aber leicht an andere Drucker 
anzupassen. Die Hilfsfunktionen 
sind über eine Menüsteuerung 
leicht anzuwählen. Hier die Funk¬ 
tionen im Zusammenhang: 

Nach dem Starten: Zunächst wird 
abgefragt, ob man mit dem engli¬ 
schen Standard-Zeichensatz oder 
mit dem deutschen Zeichensatz ar¬ 
beiten möchte. Die Bildschirm- und 
Druckausgabe erfolgt dann mit dem 
gewählten Zeichensatz. 

Die weitere Menüsteuerung erfolgt 
mit den Cursortasten (rechts-links). 
Die COPY-Taste ist zu drücken, 
wenn man die entsprechende Funk¬ 
tion ausführen möchte. 

Im Editier-Mode erfolgt die Me¬ 
nüauswahl mit SHIFT- und den 
Cursor-Tasten. COPY hat die glei¬ 
che Funktion. 

Das Hauptmenü: Im Hauptmenü 
sind neben den Menüsprüngen [mit 
SHIFT- und den Cursor-Tasten und 
COPY] noch einige Sonderfunktio¬ 
nen über die Tastatur abrufbar. 

1. Die DEL-Taste behält ihre Funk¬ 
tion bei [löschen nach links). 

2. Die CLR-Taste behält ihre Funk¬ 
tion auch bei [löschen nach 
rechts). 

3. Die Cursor-Tasten behalten ihre 
normalen Funktionen. 

4. SHIFT und Cursor up scrollt den 
Text um 20 Zeilen nach oben. 

5. SHIFT und Cursor down scrollt 
den Text um 20 Zeilen nach 
unten. 
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6. Die TAB-Taste fügt ein Zeichen 
in die Textzeile ein (nach rechts 
über den Bildrand ragende Zei¬ 
chen werden gelöscht). 

7. Die RETURN-Taste geht mit dem 
Cursor in die nächste Zeile. 

Das Menüangebot: 

1. COPY - Die COPY-Funktion er¬ 
laubt es, Zeilen von einer Stelle 
des Textes zu einer anderen zu 
kopieren. 

2. EINF - Hier wird eine Leerzeile 
nach der angegebenen Zeilen¬ 
nummer erzeugt. 

3. LOES - Die Zeilen mit den ange¬ 
gebenen Nummern werden aus 
dem Text gelöscht. 

4. SUCH - 

a] Suchfunktion - Hier wird der 
Text nach einem bestimmten 
Begriff durchsucht. Wenn der 


Begriff gefunden ist, springt 
der Cursor auf diesen, 
b) Austauschfunktion - Im Text 
befindliche Worte können 
durch andere ersetzt werden. 

5. FORM - Formatieren des aktuel¬ 
len Textes auf eine bestimmte 
Breite. Worte werden nicht ge¬ 
trennt. 

6. DRUC - Das Druckmenü enthält 
zunächst eine Abfrage nach der 
Schriftart: Normal, Komprimiert, 
Fettdruck, Schmaldruck oder 
NLQ-Druck sind möglich. Dann 
wird nach der Druckausführung 
gefragt. Diese kann Normal, mit 
doppeltem Anschlag oder hervor- 
gehoben sein. Schließlich wird 
noch nach dem Zeileoabstand ge¬ 
fragt: Normal, Weit, Eng oder 
Sehr Eng sind möglich. 


Bemerkung; TEXT-PRO druckt 
immer nur ab der Cursor-Position 
abwärts. 

7. DISK - Unter diesem Menüpunkt 
kann ein bestehender Text gela¬ 
den oder abgespeichert werden. 
Außerdem kann auch die Ausga¬ 
be des Disketteninhaltsverzeich¬ 
nisses und die ERAse- und RENa- 
me-Befehle aufgerufen werden. 
Aber auch die Bildschirmfarben 
und die Kassettengeschwindig¬ 
keit können an dieser Stelle be¬ 
einflußt werden. Der Pfeil kann 
angesprungen werden, um ins 
Hauptmenü zu gelangen. 

8. NEU - Komplette Neu-Initialisie- 
rung des Programmes und Defi¬ 
nition eines neuen Textes. 

Jens Kriese/LM 
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220 PRINT*3, "Name des neuen Textes. :LINE lNPUTi3,i$ 

230 ”:naae$=LEFT$(i$,8) 

250 LOCATE *2,2,2:PRINTä2, "Text: "name$ 

260 x= 200:ERASE t$:DIH t$<x):lin=l:FOR i=l TO 25:t$(i)=STRING$(76," "):NEXT 
265 GOTO 830 

270 '- menue 

280 ON BREAK GOSUB 2310 
290 ON ERROR GOTO 1600 
300 CLS:CLS*l:PAPER 0:PEN 1 
310 RESTORE 4530:GOSUB 3120 
330 GOSUB 420 
340 IF me=2 THEN GOTO 1390 
350 IF me=8 THEN 200 
360 GOTO 330 

420 ' - eingabe bei menue 

430 me=2 

435 L0CATE»l,me,3:PRINTItl," "SCHR$ (214)CHR$(215) ; 

440 PRlNTIt3, "Bitte waehlen Sie mit den Cursortasten und Copy." 

443 i$=INKEY$:FOR i=l TO 100:NEXT 

445 IF i$=CHR$(243) AND me<43 THEN mea=me:me=me+6:G0T0 470 

446 IF i$=CHR$<242) AND me>7 THEN mea=me:me=me-6:G0T0 470 

447 IF i$=CHR$(224) THEN mea=me:GOTO 460 
450 GOTO 443 

470 L0CATE»l,mea,3:PRINTItl," "; :L0CATE«l,me,3:PRINTtl, " ";CHR$(214)CHR$(215)i 

475 GOTO 443 
460 CLS43 

465 L0CATE*l,mea,3:PRINTtl," "i 

490 RETURN 

500 '- text laden 

520 CLS»2 

530 L0CATEt2,2,3:PRINT*2,"Mode: Text laden" 

540 PRINTU3, "Name des zu ladenden Textes. :LINE INPUT1t3, Ial$: Ia$=LEFT$(Ial$, 

6)*". tex" 

550 ERASE t$ 

560 UINDOU SUAP 0, 3 
570 OPEN IN Ia$ 

580 lNPUTIt9,x 
590 DIM t$(x) 

600 FOR i=l TO X 
610 INPUT49,t$(i} 

620 NEXT 

630 CLOSEIN 

631 CLS 

640 WINDOW SWAP 0, 3 
650 name$=Ial$ 

670 LOCATE»2,2,2:PRINT«2, "Text: "name$ 

660 GOTO 830 

690 '- text saven 

700 CLS 

710 L0CATE1f2,2, 3:PRINTi2, "Mode: Text abspeichern" 

720 WINDOW SWAP 0,3 

725 INPUT "Name des Textes.ai$ 

730 ai$=LEFT$(ai$* " ",8} + ".tex" 

740 OPENOUT ai$ 

750 WRITE«9,x 
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760 FOR i=l TO X 
770 VRITE*9,t$(i) 

780 NEXT 

790 CLOSEOUT 

791 CLS 

800 UINDOU SUAP 0,3 
820 GOTO 830 

830 '- text eingeben 

840 CLS:CLS»3:CLSil 

850 ' - edit 

860 lin=l 

870 cx=l!cy=l 

880 '- print 1-15 

900 CLStCLSg3:F0R i=l TO 15:L0CATE l,i:PRINT LEFT$(t$(Iin-l-H),76);:NEXT 
920 '- Cursor setzen 

935 CLSHliRESTORE 4540:GOSUB 3120:LOCATEg2,2,3:PRINTi2, "Mode: Text editieren 
LOCATE cx,cy:PRINT”>”}:GOSUB 1271 
938 LOCATE cx, cy:PRlNT">"{ 

940 • - inkey$ 

950 cxl=cx:cyl=cy 
960 i$=INKEY$ 

970 L0CATE43, 49,1:PRINT*3, US1NG"ZEILE.. . >### SPALTE ... >«g»";lin!cx 
980 IF t$(}in) = "" THEN T $(1 in)=STRING$(76, " ") 

990 IF i$="" THEN 960 
1000 IF i$=CHR$(240) THEN 2460 
1010 IF i$=CHR$(241) THEN 2540 
1020 IF i$=CHR$(243) THEN 2600 
1030 IF i$=CHR$<242) THEN 2640 
1040 IF i$=CHR$(244) THEN 2910 
1050 IF i$=CHR$(245) THEN 2980 

1060 IF i$=CHR$(127) THEN 2760 

1061 IF i$=CHR$(247) OR i$=CHR$(246) THEN 1271 

1063 IF i$=CHR$(224) THEN 1064 ELSE 1070 

1064 IF nie=2 THEN 3570 ELSE IF we =8 THEN 3750 ELSE IF me=14 THEN 3660 ELSE IF me 
=20 THEN 3290 ELSE IF me=26 THEN 4090 ELSE IF me=32 

THEN 2010 ELSE IF me=38 THEN 1390 ELSE IF me=44 THEN 200 
1070 IF i$=CHR$(16) THEN 2600 
1075 IF i$=CHR$(9)THEN 3850 
1080 IF i$=CHR$(13) THEN 2840 


1200 ' - eingabe in t$ 

1210 MID$(t$(lin),cx,l)=i$ 

1220 ' - print eingabe inkey$ 

1230 LOCATE cxl, cyl:PRINT MID$(t$(I in), cxl, 1) 

1240 ’ - neue Cursorposition 

1250 IF cx<76 THEN cx=cx*l ELSE GOTO 2840 
1260 LOCATE cx, cy:PRINT">"; 

1270 GOTO 940 

1271 ’ - ab frage menue 


1272 IF i$=CHR$(247) AND me<43 THEN mea=nie:me=me+6:G0T0 1276 

1273 IF i$=CHR$<246) AND me>7 THEN mea=me:me=me-6 

1276 L0CATEni,mea,3:PRINT»l," "! :L0CATE»1, me, 3:PRINTil, " "!CHR4(214)CHR$(215) 

f 

1279 GOTO 960 

1260 ' - input line 

1290 LINE INPUT«3,i$ 
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1300 IF i$<>””AND VAL(i$)<32 WEN f=VAL(i$):flag=l ELSE flag=0 
1310 1$=UPPER$(LEFT$(i$,l)) 

1320 RETURN 

1330 '- ende 

1340 PRINT43, "Wollen Sie den Text abspeichern.sGOSUB 1280 
1350 IF i$="J" THEN GOSUB 690 

1360 PRINT113, "Uol len Sie das Programm wirklich loeschen.. iGOSUB 1280 
1370 IF i$="J" THEN CALL 0 
1380 GOTO 935 

1390 ' - sys t emme n ue 

1391 CLSültRESTORE 4580:GOSUB 3120 

1392 L0CATEU2,2, 3:PRINT112, "Mode: System-Menue " 

1394 GOSUB 420 

1395 W1ND0W«4, 58, 79, 8,22 

1396 UIND0V115, 63, 77, 9,21 
1400 IF ME=2 THEN GOTO 500 
1410 IF ME=8 THEN GOTO 690 

1420 IF ME=14 THEN 1421 ELSE 1430 

1421 WINDOW SWAP 0, 5:CLS»4:CLS:PLOT 470,260:DRAW 620,260:DRAW 620,60:DRAW 470,60 
:DRA W 4 70,280: INPUT113, "Wildcard (x.tex)"} 1$: 1DIR,§I$ 

: WINDOW SWAP 0,5: GOTO 1394 

1430 IF ME=20 THEN INPUT113, "Welches Programm"Io$: INPUT113, "Neuer Name"tn$: IREN, &n 
$,§o$:GOTO 1394 

1440 IF ME=26 THEN INPUT»3, "WeIches Programm":o$:!ERA,§o$:GOTO 1394 
1450 IF HE=32 THEN 1461 ELSE 1470 

1461 INPUT43, "Umschalten auf Kassette oder Disk"!o$ 

1462 IF UPPER$(LEFT$(o$,l))="K" THEN lTAPE ELSE IDISC 

1463 GOTO 1394 

1470 IF ME=38 THEN 1550 

1475 IF ME=44 THEN CLS:GOTO 870 

1550 PRINTlt3, " Rahmen färbe . >"::GOSUB 1280: IF flag=l THEN BOEDER f 

1560 PRINT»3, " Hintergrungfarbe. .-GOSUB 1280: IF flag=l THEN INK 0,f 

1570 PRINT»3, " Schreibfarbe . >";:GOSUB 1280: IF flag=l THEN INK l,f 

1580 PRINT»3, " Speed Write (0/1)...>"!:GOSUB 1280:IF f=l OR f=0 THEN SPEED WEITE 

f 

1585 CLSH3 

1590 GOTO 1394 

1600 ' - error 


1610 CLSil :PRINT1H :PRINTS1, " Im Programm ist ein Fehler."," Zeile 

1620 PRINTil, " Fehlernummer: "ERR 

1630 PRINTlt3, "Programm abbrechen. :GOSUB 1280 

1640 IF i$="J" THEN 1330 

1650 GOTO 830 

1660 ’ - tastatur 

1670 CLS 

1680 LOCATE 30,2:PRINT"T E X T - P R 0 
1690 a=25:b=a/6:z$="":REST0RE 4490 

1700 yl=234:w=0:FOR i=73 TO 506 STEP 31:xl=i:GOSUB 1830:NEXT 

1710 xl=xl*31:w=a/2:G0SUB 1830 

1720 yl=yl-34:xl=73:w=a/2:G0SUB 1830 

1730 w= 0:FOR i=117 TO 459 STEP 31:xl=i:GOSUB 1830:NEXT 

1740 X1=489: GOSUB 1910 

1750 yl=yl-34:xl=73:w=a-a/4:G0SUB 1830 

1760 w=0:FOR i=123 TO 465 STEP 31:xl=i:GOSUB 1830:NEXT 

1770 yl=yl-34:xl=73:w=a+a/2:G0SUB 1830 
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1780 w=0:FOR i=142 TO 452 STEP 31:xl=iiGOSUB 1830:NEXT 

1790 xl=483sw=a+a/2!G0SUB 1830 

1800 yl=yl-34:xl=173:w=a»8*48iG0SUB 1830 

1810 xl=452:v=0:GOSUB 1830 

1820 RETURN 

1830 READ z$ 

1840 PLOT xl,yl!DRAV xl+a+w,yl tDRAU xl+a*w, yl-a-a/10:DRAU xl,yl-a-a/10:DRAU xl,y 
1 

1850 PLOT xl+b,yl-b:DRAU xl*a + w-b, yl-b:DRAU xl+a+u-b,yl-a-a/10+b:DRAU xl+b,yl-a- 

a/10+b:DRAW xl+b,yl-b 

1860 PLOT xl,yl:DRAU xl■^b,yl-b 

1870 FOR t=xl+a+w TO xl+a+w-b STEP -UPLOT t,yl + t-(xUa*u) :DRAU t,yl-a-a/10:NEXT 

1880 FOR t=xl TO xl+b:PLOT t,yl-a-a/10*t-xliDRAU xl*a*w,yl-a:NEXT 
1890 HOVE xl*b-fb-l,yl-b-b!TAG 4aus:PRINTtaus,Z$! :TAGOFF Haus 
1900 RETURN 
1910 READ Z$ 

1920 PLOT xl,yl:DRAU xl+ax2+6,yl :DRAV xl*a*2+6,yl-a»2-a/5-6:DRAy xl+a/4,yl-aif2-a 
/5-6:DRAU xH-a/4, yl-a-a/SiDRAU xl, yl-a-a/5:DRAV xl,y 
1 

1940 PLOT xl+b,yl-b:DRAy xH-a*2*6-b,yl-b:DRAU xl*a*2*6-b,yl-a»2-a/5-6*h:DRAU xl* 
a/4*b,yl-ax2-a/5-6*b:DRAU xl+a/4*b, yl-a-a/5*b:DRAU x 
1+b,yl-a-a/5+biDRAU xl*b,yl-b 

1950 PLOT xl,yl:DRAU xl+b,yl~b!PLOT xl*a/4,yl-a-a/5:DRAU xl*a/4+b,yl-a-a/5+b:PL0 

T xl,yl-a-a/5:DRAW xl*b,yl-a-a/5*btPL0T xl,yi:DRAU x 

l*b,yl-b 

1960 FOR t=xl*a*2*6 TO xl+ai(2*6-b STEP -UPLOT t,yl*t-(xl*ax2*6) :DRAU t,yl-a*2-a 
/5-6:NEXT 

1970 FOR t=xl+a/4 TO xl*a/4*b:PL0T t,yl-ax2-a/5-6+t-(xl+a/4) 

1980 DRAU xl*ax2+a/4,yl-a»2-a/5-6:NEXT 

1990 MOVE xl*b*2*10,yl-bif2-16:TAG:PRINT z$;:TAGOFF 

2000 RETURN 

2010 ' - ausdruck 

2020 L0CATEH2, 2, 3:PR1NTH2, •'Mode: Drucken " 

2050 UIDTH 80:PRINTH6, CHR$(27)"A"CHR$(12)CHR$(27)CHR$(84)CHR$(27}CHR$(72)CHR$(27 
)CHR$(73)CHR$(1)CHR$(24)CHR$(18)CHR$(20)! 

2060 IF spr=0 THEN PRINTH6,CHR$(27) :”6”: 

2070 IF spr=l THEN PRINTH8,CHR$(27) ;”7"; 

2080 CLS*3:CLSH1:RESTORE 4550:GOSUB 3120 
2090 GOSUB 420 
2110 inel=Bie 

2120 IF me=8 THEN PRINTH8, CHR$(15);:GOTO 2170 

2121 IF me=2 THEN GOTO 2170 

2130 IF me=14 THEN PRINT H6,CHR$(14)I:GOTO 2170 
2140 IF nie=26 THEN PRINT H6,CHR$(27)CHR$(73)CHR$(3); :GOTO 2170 
2150 IF me=20 THEN PRINTH8,CHR$(27)CHR$(93)CHR$(1);:GOTO 2170 
2160 IF me<>2 THEN 2280 

2170 IF me=26 THEN GOTO 2210 ELSE CLSHl:RESTORE 4560:GOSUB 3120:GOSUB 420 
2190 IF HEI=8 AND ME=14 THEN ME=8 

2200 IF ME=2 THEN PRINTH8,CHR$(27)CHR$(70): ELSE IF ME=14 THEN PRINT H8,CHR$(27) 
CHR$(69): ELSE IF me=8 THEN PRINTH8,CHR$(27)CHR$(71) 

; ELSE 2170 

2210 CLSHliRESTORE 4570:GOSUB 3120:GOSUB 420 

2230 IF ME-2 THEN PRINTH8,CHR$(27) :”3’';CHR$(35) I ELSE IF HE=8 THEN PRINT »8,CHR$ 
(27):”3”;CHR$(70)! ELSE IF ME=14 THEN PRINTHS, CHR$(2 
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7) ;”3”;CHR$(24); ELSE IF iBe=20 WEN PRINT »8, CHR$ (27) I "3” :CHR$ (16) ; 

2240 i=lin 

2250 IF iael=14 THEN PRINT*e,CHR$(14)! 

2255 PRINTi3, "Drucken gestartet," 

2260 IF (mel<>14 AND i<x+l AND t$(i)<>"") THEN PR INT* 6," ";LEFT$(t$(i), 76) ; : i=i 
+l:GOTO 2260 

2270 IF (mel=14 AND i<x-H AND t$(i)<>"”) THEN PRINT*6,CHR$(14)" ;LEFT$(t$( i), 
38):i=i+l:G0T0 2260 


2280 GOTO 935 

2310 ' - break 

2320 ON BREAK GOSUB 2330 
2330 GOTO 830 

2340 ' - window normal 

2350 CLS 

2360 PRINT" TEXTVERARBEITUNGS-PROGRAMM -TEXT-PRO- "CHR$(164)" 1965 


BY JENS KRIESE" 

2370 FOR 1=0 TO 1 

2360 PLOT 1+I,380!DRAU 636+1,360:DRAU 636+I,l:DRAU 1 + 1,1 :DRAU 1 + 1,360 

2390 PLOT 5+I,376:DRAU 634+1, 376:DRAU 634+I,4:DRAU 5+I,4:DRAU 5+1,376 

2400 PLOT 5+1,296:DRAU 634+1,296 

2410 PLOT 402+1,376:DRAU 402+1,296 

2420 PLOT 5+1,40:DRAU 634+1,40 

2430 NEXT 

2440 UINDOU*0, 3, 79, 8,22: UINDOUHl, 3, 50, 3, 6 : UIND0U*2,52, 79, 3, 6: UlND0Ut3,3, 79,24,24 
2450 RETURN 

2460 ' - Cursor up 

2470 IF Iin>=l THEN 2480 ELSE 936 
2460 IF lin=l THEN 938 

2490 IF cy>l THEN cy=cy-l ELSE CALL 41301:cyl=oyl+l:LOCATE 1,1:PRINT LEFT$(t$(Ii 
n-1), 76); 

2500 IF cy=l THEN LOCATE 1,1:PRINT LEFT$(t$(1in-1),76); 

2510 LOCATE cxl, cyl:PRINT MID$(t$(lin),cxl, 1) 

2520 IF lin>l THEN Iin=lin-1 
2530 GOTO 938 

2540 '- Cursor down 

2545 IF lin<x THEN 2550 ELSE GOTO 938 

2550 IF cy<15 THEN cy=cy+l ELSE CALL 41314:cyl=cyl-l 

2560 IF cy=15 THEN LOCATE 1,15:PRINT LEFT$(t$(Iin+1),76) ; 

2570 LOCATE cxl, cyl:PRINT MID$(t$(1 in), cxl, 1) 

2560 IF Iin<x THEN lin=lin+l 
2590 GOTO 936 

2600 ' - Cursor rechts 

2610 IF cx<76 THEN cx=cx+l 

2620 LOCATE cxl, cyl:PRINT MID$(t$(1 in),cxl, 1) 

2630 GOTO 938 

2640 ' - Cursor links 

2650 IF cx>l THEN cx=cx-l 

2660 LOCATE cxl, cyl:PRINT MID$(t$(lin),cxl,1) 

2670 GOTO 936 

2680 ' - copy Cursor up 

2690 IF cy>l THEN cy=cy-l ELSE CALL 41301:cyl=cyl+l:LOCATE 1,1:PR1NT LEFT$(t$(Ii 
n-1), 76); 

2700 IF lin>l THEN Iin=lin-1 
2710 RETURN 

2720 ' - copy Cursor down 
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272S IF iin<x WEN 2730 ELSE RETURN 

2730 IF cy<lS WEN cy=cy+l ELSE CALL 41314:cyl-cyl-l :LOCATE 1,15:PRINT LEFT$(t$( 
lin+1), 76); 

2740 IF Iin<x WEN lin^Iin+l 

2750 RETURN 

2760 ' - del 

2770 IF cx>l THEN t$(Iin)=LEFT$(t$(Iin), cx-2)+RIGHT$(t$(lin),77-cx)*” ” 

2780 IF cx>l THEN cx=cx-l:LOCATE l,cy:PRINT t$(Iin) 

2790 GOTO 938 
2800 ’ - cir 

2810 IF cx<76 THEN t$(Iin) =LEFT$(t$(Iin), cx-1)*RIGHT$(t$(Iin), 76-cx)*" •• 

2820 IF cx<76 THEN LOCATE l,cy:PRINT t$(Iin) 

2830 GOTO 938 

2840 '- return 

2850 cx=l 

2860 IF cy<15 THEN cy=py+l ELSE CALL 41314:cyi=cyl-l 
2870 IF cy=15 THEN LOCATE 1,15:PRINT t$(Iin*l); 

2880 LOCATE cxl, cyliPRINT MID$(t$<Iin),cxi,1) 

2890 IF Iin<x THEN lin=Iin+l 
2900 GOTO 938 

2910 IF Iin>l THEN 2920 ELSE 2970 

2920 IF lin-20>i THEN aix=Iin-20 ELSE aix=2 

2930 LOCATE cx,cy:PRINT MID$(t$(I in), cx, 1): 

2940 FOR ii=lin TO aix STEP -1 
2950 GOSUB 2680 
2960 NEXT 
2970 GOTO 938 

2980 IF lin<256 THEN 2990 ELSE 3040 

2990 IF lin*20<x+l THEN aix=Iln+20 ELSE aix=x 

3000 LOCATE cx, cyiPRINT MID$(t$(I in), cx, 1)i 

3010 FOR ii=Iin TO aix 

3020 GOSUB 2720 

3030 NEXT 

3040 GOTO 938 

3050 ' - up WC laden 

3060 RESTORE 4470 

3070 FOR i=41301 TO 41326 

3080 READ a 

3090 POKE i,a 

3100 NEXT 

3110 RETURN 

3120 '- menue zeichnen 

3139 CLS41 

3140 yl=366:a=25:b=a/6:w=a-a/4:F0R xl=16 TO 352 STEP 48:G0SUB 1830:NEXT 

3289 RETURN 

3290 ' - suchen/tauschen 

3300 L0CATE1I2,2,3:PRINT42, "Mode: Suchen/Tauschen " 

3310 PRINTII3," (S)uchen oder (A)ustauschen. .. 1 :L1NE INPUT113, i$:i$=LEFT$(UPPER$ 

(i$),l) 

3320 IF i$="A" THEN 3350 
3330 IF i$="S" THEN 3470 
3340 GOTO 3310 
3350 ' - austauschen 

3360 PRINTt3, " Auszutauschendes Wort., :LINE INPUT03, u$:u=LEN(u$) 
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3370 PRINT*3,'’ Zu ersetzen durch. :LINE INPUT1t3, v$:v=LEN(v$) :PRINTi3, ” Routi 

ne gestartef* 

3380 FOR i=l TO x:lF t$(i)=”" THEN 3440 

3390 FOR 0=1 TO 77-u 

3400 IF HlD$(t$(i),o,u)<>u$ THEN 3430 

3410 t$(i)=LEFT$(t$(i),o-l)+v$+MID$(t$(i),o+u,77-o-u)*” ” 

3420 t$(i)=LEFT$(t$(i),76) 

3430 NEXT o 
3440 NEXT i 

3460 cy=l:cyl=cy:CLS43:G0T0 900 
3470 ' - suchen 

3460 PRINT43,” Zu suchende Sequenz.LINE INPUT»3,u$:u=LEN(u$) 

3490 PRINT43, " Routine gestartet" 

3500 FOR i=l TO xÜF t$(i) = "” THEN 3550 

3510 FOR 0=1 TO 77-u 

3520 IF MID$(t$(i),o,u)<>u$ THEN 3540 

3530 Jin=i:CLS43:cy=l:cyl=cy:GOTO 870 

3540 NEXT o 

3550 NEXT 1 

3560 CLS«3icy=l!uyl=cy:G0T0 900 
3570 ' - kopieren 

3560 LOCATEHE,2, 3:PRJNT42, "Model Zeile kopieren " 

3590 PRINTII3," Kopieren von Zei I e. .. >"; iLINE INPUT43, i$:u=VAL(i$) 

3600 PRINT43, " Kopieren bis Zeile... >",\:LINE INPUTII3, i$:v=VAL(i$) 

3610 PRINTIf3," Kopieren nach Zei le... iLINE INPUT»3, i$:n=VAL(i$) 

3620 FOR i=u TO v 
3630 t$(n*i-u)=t$(i) 

3640 NEXT i 

3650 cy=l:cyl=cy:CLS*3:G0T0 900 
3660 ’ - loeschen 

3670 LOCATEüZ, 2, 3:PRINT42, "Model Zeile loeschen " 

3680 PRINT43, " Loeschen von Zei!e...>";iLINE INPUT43, i$iu=VAL(ii) 

3690 PRINT1I3, " Loeschen bis Zei le. . . iLINE INPUTII3, i$iv=VAL(i$) 

3700 FOR i=u TO x-l-(v-u) 

3710 t$(i)=t$(i+(v-u)+1) 

3720 NEXT i 

3730 FOR i=x-l-(v-u) TO xit$(i)=""iNEXT 
3740 cy=licyl=cyiCLSiCLS«3iG0T0 900 
3750 ’ - platz schaffen 

3760 L0CATE42,2, 3iPRINT§2, "Model Zeile einfuegen " 

3770 PRINTII3," Nach welcher Zeile einfuegen. iLINE INPUTt3, i$iu=VAL(i$) 

3780 PRINTIf3, " Uieviele Zeilen einfuegen. iLINE INPUT43, i$iv=VAL(i$) 

3790 FOR i=x-v-l TO u+1 STEP-1 
3800 t$(i+v)=t$(i) 

3810 NEXT i 

3620 FOR i=u+l TO u+v 

3830 t$(i)=STRING$(76," "UNEXT 

3840 cy=licyl=cyiCLSII3iG0T0 900 

3650 ' - einfuegen 

3860 IF cx<76 THEN t$(Iin)=LEFT$(t$(I in), cx-1) + " "+LEFT$(RIGHT$(t$(Iin), 77-cx),7 
6-cx) 

3870 IF cx<76 THEN LOCATE l,cyiPRINT t$(lin) 

3880 GOTO 938 

4090 '- formatieren 

4100 LOCATEUZ, 2, 3 1 PRINTII 2 , "Mode: Text formatieren " 
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4110 CLS!PRINT#3, " Ule breit soll der Text sein (20-76). -LINE INPUTi3, i$!u- 

VAL(i$)!lF u<20 OR u>76 THEN 4110 
4120 ii=lte$=""!u$=”"!DlM tl$(200) 


4130 FOR i=l TO X ^ ^ 

4140 IF t$(i)=STRlNG$(76," ") THEN tl$(ii+l) = "”:tl$(ii)-LEFT$(tl$(ii)*t$(i), 76): 

ii=ii+2!G0T0 4200 

4150 IF t$(i)^’*'* AND tl$(ii) = ”” THEN ii=ii*ltGOTO 4200 

4155 IF t$(i) = ”- THEN tl$(ii+l )=t$( 1) : tl$(ii)=LEFT$(tl$(ii)*STRlNGf(76, " ••),76): 
ii=ii+2sG0T0 4200 
4160 FOR 0=1 TO 76 

4170 IF M!D$(t$(i),0,1)0" " THEN e$=e$*MlD$( t$< i ), o, 1) 

4160 IF MID$(t$(i),o, 1) = " ” AND HID$(t$(i),o*l,l)<>" " THEN e$=e$+" "iw$=e$:e$-" 
"iGOSUB 4220 
4190 NEXT o 

4200 IF ii<201 THEN NEXT i ELSE 4210 

4210 GOTO 4240 .. 

4220 IF LEN(tl$(ii) )*LEN(w$)<\J THEN tl$( i i ) = tl$( i i ) *w$ :w$="":ELSE tl$(ii)=LEFT$( 
tl$(ii)+STRING$(76," "), 76) :ii=ii+1‘-GOTO 4220 
4230 RETURN 

4240 PRlNTi3, "Sol 1 der neu formatierte Text uebernommen werden. 1:L1NE INPUTt 
3, i$:i$=LEFT$(LOVERS(iS), 1) 

4250 IF UPPERS(iS)="J" THEN FOR i=l TO X!tS(i)=tlS(i):NEXT 
4255 ERASE tlS 

4260 cy=licyl=cy!CLSM3•CLS!GOTO 850 
4360 '- tastatur 


4370 sprS="deutsch":spr=0 
4360 SYMBOL 123,198,0,120,12,124, 204,118,0 
4390 SYMBOL 125,198,0,102,102,102,102, 62,0 
4400 SYMBOL 124,198,0, 60,102,102,102, 60,0 
4410 SYMBOL 126,120,198,198,252,198,198,248,192 
4420 SYMBOL 91,219, 60,102,102,126,102,102,0 
4430 SYMBOL 93,196,0,198,198,198,196, 60,0 
4440 SYMBOL 92,198, 56,198,198,196,108, 56,0 

4450 KEY DEF 17,1,123,91 :KEY DEF 19,1,125,93:KEY DEF 26,1,124,92:KEY DEF 24,1,12 


6:RETURN 

4460 'datas fuer mc-code 

4470 DA TA Ml ,&0,&0,&ll,&15,&4e, &21, &07, &02, &cd, &50, Abc, &c9 
4460 DA TA &01, &0, &01, All, &15, &4e, A21, A07, A02, Acd, A50, Abc, Ac9 
4485 ’datas fuer tastatur 

4490 DA TA E,l, 2, 3, 4, 5, 6, 7, 8, 9,0, C, DEL 

4500 DA TA TAB, Q, U, E, R, T, Y,U,I, 0, P, "[ ", ENT 

4510 DA TA CAPS, A,S,D, F, G, H, J, K, L, ": ", "! ", "J " 

4520 DATA SHIFT, Z, X, C, Y, B, N, M, ", ", ". ", ", SHIFT, " SPACE", C 

4525 'datas fuer menues 
4530 DATA DISK, NEU, , , , , , 

4540 DA TA COPY, EINE, LOES, SUCH, FORM, DRUC, DISK, NEU 
4550 DATA NORM, KOMP, FETT, SCHM, NLQ, , , 

4560 DATA NORM, DOPP, HERV, , , , , 

4570 DATA NORM, VEIT, ENG, SEHR, , , , , 

4580 DA TA LOAD, SA VE, DIR, REN, ERA, CASS, FÄRB, "->" 

30000 CLOSEIN.‘VINDOV SVAP 3,0:DIM tS(200) ‘.GOTO 630 
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Arbeiten mit dem 
2. Speicher 
beim CPC 6128 


Der neue Schneider CPC 6128 wird 
von Haus aus mit einem Speicher 
von 128 KByte ausgerüstet Dieser 
Speicher ist mit „normalen” Basic- 
Befehlen nicht zu erreichen. 
Schneider liefert deshalb das Pro¬ 
gramm „BANKMAN” mit Mit des¬ 
sen Hilfe können dem Rechner fünf 
RSX-Befehle mitgeteilt werden; 
dann stehen dem Anwender auch 
die zusätzlichen 64 KByte zur Ver- 
ßgung. 


„BANKMAN“ eignet sich hervorra¬ 
gend zum Arbeiten mit verschiede¬ 
nen Bildschirmen, Vier Bildschirme 
können in den zweiten 64 KByte 
untergebracht werden. „SCREEN- 
COPY“ und „SCREENSWAP“ er¬ 
möglichen schnelles und komforta¬ 
bles Arbeiten unter BASIC. 

Auch über die anderen RSX-Befehle 
ist schon genügend geschrieben 
worden. „BANKREAD“ und 
„BANKWRITE“ erlauben die Spei¬ 
cherung von Stringvariablen in dem 
Zusatzspeicher; mit „BANKFIND“ 
ist sogar eine Suche mit Wildcards 
vorgesehen. Also, warum sich noch 
weiter mit den BANK-Operationen 
auseinandersetzen, wo doch dank 
„BANKMAN“ alles wunderbar 
funktioniert? 

Etwas anderes: Haben Sie schon 
einmal probiert, den zweiten Spei¬ 
cher komplett zu löschen? Pro¬ 
gramm 1 soll das für uns machen. 
Die Aktion läuft relativ schnell, aber 
leider fehlt noch 1 Byte. Also erhö¬ 
hen wir „1“ auf 256. Dies wiederum 
nimmt uns das BASIC übel, denn 
Stringvariablen dürfen nur maximal 
255 Bytes lang sein. Deshalb soll „1“ 
128 und „n“ 512 sein; nun werden 


in 512 Durchgängen die gesamten 
65 536 Bytes gelöscht. Aber, haben 
Sie schon einmal auf die Zeit geach¬ 
tet? 4,53 Sekunden! Das kann ja 
noch nicht das Gelbe vom Ei sein, 
Grund genug, sich doch etwas mit 
dem Zusatzspeicher und seiner An¬ 
steuerung zu beschäftigen. Um der 
Theorie auch etwas Würze zu ge¬ 
ben, schreiben wir ein Programm, 
das den Zusatzspeicher ganz löscht 
und nicht soviel Zeit dafür benötigt. 
„BANKCLEAR“ heißt es, denn ge¬ 
nau das soll es auch nachher ma¬ 
chen. Für diejenigen, denen Ma¬ 
schinensprache im Moment noch 
nicht soviel sagt, haben wir auch 
einen BASIC-Lader als Programm 2 
in diesen Artikel mit aufgenommen. 
Dieser BASIC-Lader erlaubt, in ge¬ 
wissen Grenzen, „BANKCLEAR“ an 
verschiedene Startadressen im 
Speicher anzusiedeln; unerlaubte 
Adressen werden von ihm ignoriert. 
Warum sind bestimmte Speicherbe¬ 
reiche für die Ansiedlung von 
„BANKCLEAR“ nicht erlaubt? Die 
Antwort wird schon im Handbuch 
mit einem kurzen Satz gestreift: 
„Beachten Sie, daß jeder Block aus 
den zweiten 64 KBjde an derselben 
Adresse abgelegt wird.“ Der Bereich 
liegt zwischen &4000 und &7FFF. 
Wird der zweite Speicher angespro¬ 
chen, so wird im „Hauptspeicher“ 
ohne Rücksicht auf irgendwelche 
vorhandenen Daten der Bereich 
ausgeblendet; stattdessen finden 
wir an dieser Stelle nun einen Block 
aus dem zweiten Speicher. 

Ein Block ist 16 KByte lang, folglich 
besteht der Zusatzspeicher aus vier 
Blöcken. Die einzelnen Blöcke ha¬ 
ben eine Kennung von 4 bis 7. Diese 
Kennung muß dem Rechner mitge¬ 


teilt werden; so weiß er, welcher 
Block gerade „up to date“ ist. 
„CALL BANK“ ermöglicht diese 
Mitteilung, wobei BANK für die 
Adresse &BD5B steht. Hier wird ei¬ 
ne Routine im ROM aufgerufen, die 
die Bankwahl durch einen „OUT 
(c),c“-Befehl vornimmt. Die Block¬ 
kennung muß sich dabei im Register 
„A“ befinden. Will man also eine 
Bank aus dem Zusatzspeicher be¬ 
nutzen, so wird die Kennung nach 
„A“ geladen und „CALL BANK“ 
aufgerufen. Der Speicherbereich 
&4000 bis &7FFF wird nun durch 
den angewählten Block ersetzt und 
kann beschrieben werden. Würde 
unser Programm „BANKCLEAR“ in 
diesem Bereich liegen, so würde es 
sich beim ersten „CALL BANK“ 
selbst ausblenden; ein Absturz des 
Rechners wäre unvermeidlich. 

Was macht nun unser kleines Pro¬ 
gramm? Register „A“ wird mit der 
ersten Bankkennung geladen; da¬ 
nach wird der erste Block geladen 
und gelöscht. „A“ wird erhöht und 
der zweite Block wird gelöscht. Als 
Zähler fungiert übrigens das Regi¬ 
ster „C“. Wird in „C“ der Wert 8 
erreicht, dann ist es höchste Zeit, 
das Programm zu verlassen. Zuvor 
wird der Hauptspeicher aber wieder 
in seinen Originalzustand versetzt. 
Dazu bekommt das Register „A“ den 
Wert 0; ein letztesmal wird „CALL 
BANK“ aufgerufen. Der Hauptspei¬ 
cher ist wieder komplett, der Zweit¬ 
speicher gelöscht, und das Maschi¬ 
nenprogramm zu Ende. 

Haben Sie noch Interesse an einem 
zweiten Programm, das die Bankbe¬ 
fehle erweitert? Dann sollten Sie 
weiter lesen. Stellen Sie sich vor, 
Sie haben einen Speicherbereich, 
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den Sie in den Zweitspeicher über¬ 
tragen möchten. Natürlich können 
Sie dies mit Hilfe des „BANKMAN“ 
tun. Wie, das zeigt Programm 3. 
Übergeben an „BANKWRITE“ wird 
nun nicht mehr eine Variable, son¬ 
dern eine Adresse; es ist also nicht 
nötig, den Speicherinhalt erst einer 
Variablen „aufzuhalsen“. Umge¬ 
kehrt funktioniert es bei „BANK- 
READ“ natürlich genauso; die Da¬ 
ten aus dem zweiten Speicher wer¬ 
den direkt an die Adresse im Haupt¬ 
speicher geladen. 

Interessanter wird es bei einem 
„BANKSWAP“-Befehl. Hierbei wird 
ein Speicherbereich mit einem an¬ 
deren Speicher vertauscht. Im Pro¬ 
gramm 4 wird gezeigt, wie beim 
„BANKMAN“ so etwas realisiert 
werden kann. Getauscht werden 
sollen, der Einfachheit halber, zwei 
16-KByte-Bereiche. Die Bereichs¬ 
grenzen sind frei wählbar. Leäder 
können wir den eingebauten 
„SCREENSWAP“-Befehl nicht be¬ 
nutzen; wir müßten jedesmal die 
Daten in den Bildschirmspeicher la¬ 
den und anschließend wieder zu¬ 
rückholen. Das ist nicht nur sehr 
zeitaufwendig, sondern es sieht 
auch merkwürdig aus. 

Unter Maschinensprache geht der 
Vorgang wieder erheblich schneller. 
Das Programm benötigt zu allererst 
zwei Zwischenspeicher. Aus dem 
zuvor gelesenen wissen wir, daß 
diese Speicher oberhalb von &7FFF 
liegen müssen; daher werden Sie an 
das Ende des Programms gehängt, 
„BANKSWAP“ kann also wiederum 
nur im Bereich über &7FFF abgelegt 
werden; der BASIC-Lader berück¬ 
sichtigt das. 

Das Programm gliedert sich grob in 
drei Teile. Teil 1 beginnt bei 


BANKSW. Hier wird kontrolliert, 
ob die angewählte Bank überhaupt 
zulässig ist. Dabei steht eine „0“ für 
die Bank im Hauptspeicher; „1“ bis 
„4“ bezeichnen die Banken im Zu¬ 
satzspeicher. Das Subprogramm bei 
BANKSl berechnet die korrekten 
Kennungen. 

Bei BANKS2 beginnt dann der ei¬ 
gentliche SWAP-Vorgang. Zuerst 
wird ein Speicherteilbereich im 
ZWSPl gesichert. Dann wird der 
Hauptspeicher ausgeblendet; die 
Daten aus dem Zusatzspeicher wer¬ 
den nach ZWSP geladen (entspricht 
„BANKREAD“). Anschließend wird 
der Inhalt von ZWSPl an die ent¬ 
sprechende Adresse im Zusatzspei¬ 
cher gesandt („BANKWRITE“). Der 
Hauptspeicher wird nun emgeblen- 
det; der Inhalt von ZWSP kommt an 
seinen Platz. Dieser Vorgang wie¬ 
derholt sich bei unserem Beispiel 
64mal; danach sind zwei 16-KByte- 
Blöcke ausgetauscht. 

Teil 3 beginnt bei BANKSO. Bisher 
wurde nur die Bank aus dem Haupt¬ 
speicher, z. B. Bank 3, wieder an 
ihren Platz im Zusatzspeicher ge¬ 
schickt. Jetzt soll aber auch eine 
neue Bank, z. B. Bank 4, in den Ar¬ 
beitsspeicher geladen werden. Die¬ 
se neue Bank muß bei dem Aufruf 
von „BANKSWAP“ mit übergeben 
werden. Der Vorgang beginnt von 
neuem: Der Arbeitsspeicher (Bank 
0] wird in den Zusatzspeicher gela¬ 
den; Bank 4 nimmt den Platz von 
Bank 0 ein. 

Worin liegt der Vorteil bei dem dop¬ 
pelten Bankgeschiebe? Schneller 
ginge es, wenn man den 16-KByte- 
Block im Hauptspeicher als reinen 
Arbeitsspeicher betrachten würde. 
Dann brauchten die Bänke aus dem 
Zusatzspeicher nur dorthin geladen 


zu werden; einfache Blockladebe¬ 
fehle des Z80 würden genügen. Lei¬ 
der stehen dem Anwender dann 
aber nur 64 KByte zur Verfügung; 
mit unserem „BANKSWAP“ liegen 
wir aber bei 80 KByte. Grund genug, 
wie ich meine, dieses etwas auf¬ 
wendigere Verfahren zu benutzen. 
„BANKSWAP“ wird mit einem 
GALL-Befehl aufgerufen. Dabei muß 
zu Beginn die Adresse von Bank 0 
im Hauptspeicher angegeben wer¬ 
den. Mit „GALL &9F00, 0, &3000“ 
wird der Beginn von Bank 0 auf 
&3000 festgelegt; Bank 0 umfaßt al¬ 
so in diesem Beispiel den Speicher¬ 
bereich &5000 bis &6FFF, Gleich¬ 
zeitig finden wir auch unser 
, ,BANKCLEAR‘ ‘ wieder; es wird 
ausgeführt, wenn zwei Parameter an 
das Programm übergeben werden. 
So wird der gesamte Zusatzspeicher 
gelöscht. 

„GALL &9F00,2“: hiermit wird in 
den Arbeitsspeicher die Bank 2 ge¬ 
laden. Die bisherige Bank 0 wird 
unter der Adresse von Bank 2 ge¬ 
speichert. Ein nochmaliger Aufruf 
von Bank 2 würde außer Zeitverlust 
nichts ändern. 

Programm 5 enthält den BASIC-La¬ 
der für BANKSWAP, Das korrekte 
Programm wird automatisch gesi¬ 
chert und dann aufgerufen. Denken 
Sie daran, daß BANKSWAP zuerst 
die Bereichsgrenzen des Speichers 
mitgeteilt werden müssen. Dabei 
wird immer der gesamte Speicher 
gelöscht, ln Programm 5 wird diese 
Bedingung vor dem ersten Aufruf 
■von BANKSWAP erfüllt. 

Natürlich können Sie auch diesen 
Befehl wieder als RSX-Befehl in Ih¬ 
re Programme einbinden. Das As- 
semblerlisting kann Ihnen da behilf¬ 
lich sein. F. BERG/LM 


ARNOR Z80 ASSEMBLER Version 1.10 Page 001 


00002 

BANKSWAP fuer CPC 6128 

00003 

(c) 11/85 f.berg ' 

00004 


00005 

CALL bankswap,0,spa (Aufruf Bankswap Init) 

00006 

CALL bankswap.bank (Aufruf Bankswap) 

00007 


00008 


00009 9F00 (A474) 

ORG &gF00,§ 

00010 


00011 9FOO (0100) 

SLEN EQU &100 ;Satzlaenge 
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00012 

9F00 

(0140) 

BANKNR 

EQU 

&140 

;Banknuramer (intern) 


00013 

9F00 

(0141) 

SEITE 

EQU 

&141 

;alte Banknummer 


00014 

9F00 

(0142) 

SPBANK 

EQU 

&142 

;Adr. Bankspeicher 


00015 

9F00 

(0144) 

SPA 

EQU 

&144 

;Hauptspeicheranfang 


00016 

9F00 

(0146) 

SPASP 

EQU 

&146 

;Zwischenspeicher 


00017 








00018 



9 

Systemspruenge 



00019 








00020 

9F00 

(BD5B) 

BANK 

EQU 

&BD5B 



00021 








00022 








00023 

9F00 

FE 02 

BKINIT 

CP 

2 

»Uebergabe 2 Parameter? 


00024 

9F02 

20 27 


JR 

NZ,BANKSW 



00025 








00026 

9F04 

ED 53 44 01 


LD 

(SPA),DE 

jSpeicheranfang 


00Q27 








00028 

9F08 

OE 04 


LD 

C,4 

»Die einzelnen Baenke 


00029 

9F0A 

79 

BANKCL 

LD 

A,C 

; werden geloescht. 


00030 

9F0B 

CD 5B BD 


CALL 

BANK 

»Ausblendung Hauptspeicher 


00031 

9F0E 

C5 


PUSH 

BC 

;C wird gerettet. 


00032 








00033 

9F0F 

01. FF 3F 


LD 

BC,&3FFF 

»Die Baenke liegen immer 


00034 

9F12 

21 00 40 


LD 

HL,&4000 

; im Bereich zwischen 


00035 

9F15 

36 20 


LD 

(HL),” " 

; &4000 und 8<7FFF. 


00036 

9F17 

11 01 40 


LD 

DE,&4001 



00037 

9F1A 

ED BO 


LDIR 




00038 








00039 

9F1C 

CI 


POP 

BC 

;C wird geholt 


00040 

9F1D 

OC 


INC 

C 

;Die naechste Bank wird 


00041 

9F1E 

79 


LD 

A,C 

»‘ ausgesucht. 


00042 

9F1F 

FE 08 


CP 

8 

; Ist C=8, dann Ende. 


00Q43 

9F21 

20 E7 


JR 

NZ,BANKCL 



00044 








00045 

9F23 

97 


SUB 

A 

;Hauptspeicher wird ein- 


00046 

9F24 

CD 5B BD 


CALL 

BANK 

; geblendet. 


00047 

9F27 

32 41 01 


LD 

(SEITE),A 



00048 

9F2A 

C9 


RET 




00049 








00050 

9F2B 

ED 5B 41 01 

BANK5W 

LD 

DE,(SEITE) 

;alte Banknummer 


00051 

9F2F 

CD 99 9F 


CALL 

BANKSl 



00052 

9F32 

38 03 


JR 

C,BANKSO 

»Carry bei 0<Bank>4 


00053 

9F34 

CD 44 9F 


CALL 

BANKS2 



00054 








00055 

9F37 

DD 5E 00 

BANKSO 

LD 

E,(IX+0) 

;neue Banknummer 


00056 

9F3A 

16 00 


LD 

D,0 



00057 

9F3C 

ED 53 41 01 


LD 

(SEITE),DE 



00058 

9F40 

CD 99 9F 


CALL 

BANKSl 



00059 

9F43 

D8 


RET 

C 



00060 








00061 



t 


BANKSWAP 



00062 








00063 

9F44 

06 40 

BANKS2 

LD 

B,64 

;Initialisierung 


00064 

9F46 

21 00 40 


LD 

HL,&4000 

; B ist Zaehler 


00065 

9F49 

22 42 01 


LD 

(SPBANK),HL 



00066 

9F4C 

2A 44 01 


LD 

HL,(SPA) 



00067 

9F4F 

22 46 01 


LD 

(SPASP),HL 



00068 








00069 

9F52 

C5 

BANKS3 

PUSH 

BC 

»B wird gerettet. 
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00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 


9F53 

01 00 01 


LD 

BC,SLEN 

;Daten aus Hauptspeicher 

9F56 

11 A9 AO 


LD 

DE,ZWSP1 

; werden nach ZWSPl ge- 

9F59 

E5 


PUSH 

HL 

; laden. 

9F5A 

C5 


PUSH 

BC 

;Rette Adr. Hauptspeicher 

9F5B 

ED BO 


LDIR 


; und SLEN. 

9F5D 

3A 40 01 


LD 

A, (BANKNR) 

;interne Banknummer 

9F60 

4F 


LD 

C,A 


9F61 

CD 5B BD 


CALL 

BANK 

;Hauptspeicher ausblenden 

9F64 

CI 

BANKRD 

POP 

BC 

;SLEN 

9F65 

2A 42 01 


LD 

HL,(SPBANK) 

;Bankspeicher 

9F68 

11 A8 9F 


LD 

DE,ZWSP 

;Zwischenspeicher 

9F6B 

D5 


PUSH 

DE 

;Daten werden aus einer 

9F6C 

E5 


PUSH 

HL 

; Bank nach ZWSP gelesen. 

9F6D 

C5 


PUSH 

BC 


9F6E 

ED BO 


LDIR 



9F70 

CI 

BANKUR 

POP 

BC 

;SLEN 

9F71 

21 A9 AO 


LD 

HL,ZWSP1 

;SWAP-Speicher 

9F74 

Dl 


POP 

DE 

;Adr. Bankspeicher 

9F75 

C5 


PUSH 

BC 

;Daten aus ZWSPl werden ii 

9F76 

ED BO 


LDIR 


; eine Bank gelesen. 

9F78 

97 


SUB 

A 


9F79 

CD 5B BD 


CALL 

BANK 

»Hauptspeicher einblenden 

9F7C 

CI 


POP 

BC 

;SLEN 

9F7D 

El 


POP 

HL 

»Zwischenspeicher ZWSP 

9F7E 

Dl 


POP 

DE 

;Adr. im Hauptspeicher 

9F7F 

ED BO 


LDIR 


;ZWSP -> Hauptspeicher 

9F81 

CI 


POP 

BC 

;B wird geholt 

9F82 

10 01 


DJNZ 

BANKS5 

: Ist B=0, dann Ende. 

9F84 

C9 


RET 



9F85 

11 00 01 

BANKS5 

LD 

DE,SLEN 


9F88 

2A 42 01 


LD 

HL,(SPBANK) 

»Adr. Banksp.+SLEN 

9F8B 

19 


ADD 

HL, DE 


9F8C 

22 42 01 


LD 

(SPBANK),HL 


9F8F 

2A 46 01 


LD 

HL,(SPASP) 

;Adr. Hauptsp.+SLEN 

9F92 

19 


ADD 

HL, DE 


9F93 

22 46 01 


LD 

(SPASP),HL 


9F96 

C3 52 9F 


JP 

BANKS3 


9F99 

97 

BANKSl 

SUB 

A 

;I st Banknr.0 oder 

9F9A 

BB 


CP 

E 

; >4, dann RET C. 

9F9B 

37 


SCF 



9F9C 

C8 


RET 

Z 


9F9D 

3E 05 


LD 

A, 5 


9F9F 

BB 


CP 

E 


9FA0 

D8 


RET 

C 


9FA1 

7B 


LD 

Ä, E 

;interne Banknr. liegt 

9FA2 

C6 03 


ADD 

&03 

» zwischen 4 und 7. 

9FA4 

32 40 01 


LD 

(BANKNR),A 
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00128 9FA7 

C9 



RET 




00129 








00130 9FA8 

(9FA8) 


ZWSP 

EQU 

$ 

;Zwischenspeieher 


00131 9FA8 

(A0A9) 


ZWSPl 

EQU 

$+257 

;SWAP-Speicher 


00132 








00133 9FA8 

(A1A9) 


ENDE 

EQU 

$+257+256 



Errors: 00000 

Warni 

ngs: 

00000 





SYMBOL TABLE: 







0140 BANKNR 


BD5B 

BANK 


9F00 BKINIT 

9F0A BANKCL 


9F2B BANKSW 


9F37 

BANKSO 


9F44 BANKS2 

9F52 BANKS3 


9F64 BANKRD 


9F70 

BANKWR 


9F85 BANKS5 

9F99 BANKSl 


A1A9 ENDE 


0100 

SLEN 


0141 SEITE 

0142 SPBANK 


0144 SPA 


0146 

SPASP 


9FA8 ZWSP 

A0A9 ZWSPl 

■ 


LlstiTig s Programm 1 
100 REM Programm 1 

110 REM Loeschen des Zusatzspeichers 

120 • 

130 JE HIMEM=37631 WEN 170 
140 MEMORY &92FF 

150 LOAD^bankmaTi.bin^,ii9300:CALL &9300 
160 ' 

170 T)=257n=255:DEFJNT a:a=0: IBANKOPEN, J :d$=STR]NG$(I,^^ 

180 t=TIME 

190 FOR m=0 TO n 

200 IBANKWRITE, @a, d$, m 

210 NEXT:PRINT^Zeit: "/ (TlME-t)/300; "s" 



Listings Programm 2 

100 REM Programm 2 

110 REM BANKCLEAR 

120 ' 

130 MODE l:LOCATE 12,5:PRJNT"B ANKCLEAR” 

140 LOCATE 2f 11 :PRINT”Bei welcher Adresse soll BANKCLEAR** 

150 LOCATE 2,13:INPUT **beginT)en** ladresse 
160 IF adresse<0 THEN adresse=65536*adresse 
170 IF adresse>32767 AND adresse<42587 THEN 200 

180 LOCATE 2,18:PRINT**Die Adresse ist nicht erIaubt!**:CALL &BB06:RUN 
190 * 

200 LOCATE 2,11 :PRINT**BANKCLEAR wird nun gespeichert. ** 

210 LOCATE 2,13:PRINT STRING$(38, ** **) 

220 LOCATE 2,15:PRINT**Sie koennen BANKCLEAR dann mit** 

230 LOCATE 4,17:PRINT**SAVE *BNKCLEAR*, b, St**;HEX$(adresse) ; **, &20** 

240 LOCATE 2,19:PR!NT**auf Diskette sichern.** 

250 * 

260 MEMORY adresse-1 tRESTORE 320 
270 FOR n=adresse TO adresse-f-Ol 
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SSssSgSaS^^ 



280 READ a$:POKE Ti,VAL(”&”*a$) 

290 NEXT 

300 LOCATE 12,ll:PRINT'* ist”:LOCATE 1,24:END 
310 • 

320 DA TA 0E, 04, 79, CD, SB, BD, CS, 01, FF, 3F, 21,00,40, 36,20,11 
330 DA TA 01, 40, ED, B0, CI, 0C, 79, FE, 06,20, E7, 97, CD, SB, BD, C9 


L-istiTig: Programm 3 

100 REM inf» Programm 3 

110 REM Speichern/Laden mit Block 1 (Zusatzspeicher) 

120 • 

130 IF H1MEM=37631 THEN 170 
140 MEMORY &92FF 

1S0 LOAD"bankman.bin", &93001CALL &9300 
160 ' 

170 l=128:DEFINT a:a=0!IBANKOPEN,l:d$=STRING$(1," "):POKE &1SC,1 
180 spa=&3000ispe=&6FFF 

190 MODE 2UNPUT"!) Bereich speichern 2) Bereich laden "Sa 
200 POKE &1SC, ]:IF a=2 THEN GOTO 310 
210 ' 

220 'BANKURITE 
230 t=TIME:z=0 
240 FOR m=spa TO spe STEP 1 

2S0 POKE &1SE, INT(m/2S6) :POKE iilSD,m-PEEK(t<lSE)*2S6 

260 IBANKURlTE,0a,&lSC,z!z=z+l 

270 NEXT:PRINT"Zeit:"S(TIME-t)/300S"s " 

280 END 
290 ' 

300 ’BANKREAD 

310 t=TIME:z=0 

320 FOR m=spa TO spe STEP 1 

330 POKE &1SE, INT(m/2S6) :POKE g/lSD, m-PEEK(&lSE)*2S6 

340 l BANKREAD, §a, &1 SC, z:z=z + l 

350 NEXT:PRlNT"Zeit:"S(TIME-t)/300S"s" 


Liisting I Programm 4 


100 REM *** Programm 4 
110 REM BANKSUAP in Basic 
120 ' 

130 MODE 2:IF HIMEM=12287 THEN 170 
140 MEMORY &2FFF 

150 LOAD"bankman.bin", &9300!CALL &9300 
160 ' 

170 l=128:DEFINT a:a=0:IBANKOPEN, 1:d$=STRING$(I, " ”):POKE &15C,1 
180 spa=&3000:spe=St6FFF 
190 ' 

200 INPUT"Bitte geben Sie die gewuenschte Bank an: ",b:PRINT 
210 IF b<0 OR b>4 THEN PRINT"FaIsehe Eingabe! ":PRINT:GOTO 200 
220 ' 
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230 ct=”speichert.":GOSUB 260:bank=btc$=”laden.":GOSUB 260 
240 PRINT^BANKSUAP ist beendet. •'.‘END 
250 • 

260 IF bank=0 THEN RETURN 

270 PRINT”Bank"Sbank!''wlrd ge";c$:z=(bank-l)*128 
280 FOR m=spa TO spe STEP 1 
290 n=§d$:GOSUB 340:d$=d$*’'- 

300 n=&15C:G0SUB 340 

310 IBANKREAD, §a, &15C, z: 1 BANKURI TE, §a, @d$, z:z=z*l 
320 NEXT:RETURN 
330 • 

340 POKE n+2, INT(m/256) :POKE n-H ,m-256*PEEK(n+2) .‘RETURN 


Listing s Programm 5 


100 REM *** Programm 5 
110 REM BANKSUAP in M-Code 
120 ' 

130 MODE 1‘.MEMORY &2FFF:adr=&9F00 

140 LOCATE 5,9:PRINT<'Die Werte von BANKSUAP werden" 
150 LOCATE 5,10:PRINT"gespeichert. " 

160 LOCATE 5,15!PRINT"Bitte warten Sie." 

170 zeile’‘490 


180 • 


190 zeile=zeiie+10!lF zeile<>610 THEN 240 

200 MODE 2:L0CATE 5, 9: PR INT "BANKSUAP wird unter 'BANKSUAP. BW gespeichert. 
210 LOCATE S,ll:PRINT"SAVE 'BANKSUAP.BIN',b,&9F00,&A7" 

220 SA VE"BANKSUAP. BIN", b, &9F00, &A 7 

230 PRINT:GOTO 310 

240 pruef=0:FOR n=adr TO adr+15 

250 READ a$:POKE n, VAL("&"+a$) :pruef=pruef-t-PEEK(n) 

260 NEXT 

270 READ a$:a=VAL(MID$(a$,3)):adr=n:IF a=pruef THEN 190 
280 MODE 2:L0CATE 10, 9:PRINT"Fehler in Zeile";zeilesPRINT 
290 LIST 500- 
300 ' 


310 spa=&3000:spe=&6FFF:CALL &9F00,0,spa 
320 • 

330 INPUT"Bitte geben Sie die gewuenschte Bank an: ",b 
340 CALL &9F00,b 

350 PRINT"BANKSUAP ist beendet. "‘.PRINT 
360 GOTO 330 
370 • 

500 DA TA FE, 02,20,27, ED, 53, 44,01,0E, 04, 79, CD, 5B, BD, C5,01, = ti602 
510 DATA FF, 3F, 21,00, 40, 36, 20,11,01, 40, ED, B0, CI, 0C, 79, FE, = Si628 
520 DATA 08,20,E7,97,CD,5B,BD,32,41,01,C9,ED,5B,41,01,CD,= &71F 
530 DA TA 99, 9F, 38,03, CD, 44, 9F, DD, 5E, 00, 16,00, ED, 53, 41,01,= &5F6 
540 DA TA CD, 99, 9F, D6,06, 40, 21,00, 40,22,42,01,2A, 44,01,22, = &4 7A 
550 DA TA 46, 01, C5,01,00,01,11, A9, A0, E5, C5, ED, B0, 3A, 40,01, = &62A 
560 DATA 4F,CD,5B,BD,C1,2A,42,01,11,A6,9F,D5,E5,C5,ED,B0,= &8D6 
570 DA TA C1,21,A9, A0, Dl, C5, ED, B0, 97, CD, 5B, BD, CI, El, Dl, ED, = &B3A 
580 DATA B0,C1,10,01,C9,11,00,01,2A,42,01,19,22,42,01,2A,= t,372 
590 DA TA 46,01,19,22, 46,01, C3, 52, 9F, 97, BB, 37, C8, 3E, 05, BB, = &5CC 
600 DA TA D8, 7B, C6,03, 32, 40,01, C9,00,00,00,00,00,00,00,00, = t,356 









Anwendungen 


Der (PC 464 

programmiert sich seihst! 


Mit der folgenden ESX-Erweite- 
mngf die nur auf dem Schneider- 
CPC-464 lauffäbig ist, können Sie 
den Computer sich selbst program¬ 
mieren lassen. So lassen sich z. B. 
DEF-FN-Funktionen per INPUT 
eingeben oder sich selbst modifi¬ 
zierende Programme schreiben. 

Sie erhalten ein lauffähiges Pro¬ 
gramm auf zwei Wegen: erstens 
durch Eingabe des Quellcodes und 
Assemblierung des Maschinenpro¬ 
gramms, oder zweitens durch Ab¬ 
tippen des Basic-Loaders, Achten 
Sie beim Basic-Loader aber sehr ge¬ 
nau auf die Numerierung der Pro¬ 
grammzeilen — Sie sehen später, 
warum! 

Nach dem Programmstart steht Ih¬ 
nen ein neuer RSX-Befehl zur Ver¬ 
fügung: 

lLINE,@a$ 

Im angegebenen String muß eine 
vollständige Basic-Zeile stehen: 

a$=“100 PRINT” 

a$=“150 FOR i=l 
TO lOiPRINT i:NEXT” 

Die Stringvariable kann aufgrund 
des CPC-Betriebssystems also nicht 
direkt übergeben werden, sondern 
nur auf dem Umweg über den Varia¬ 
blenzeiger. Diese Funktion wird mit 
dem ,,Klammeraffen“ (ASCII-Code 
64] aufgerufen. Diskettenbesitzer 


kennen das sicher schon vom ERA- 
und REN-Befehl. 

Ein Programm-Beispiel dafür: 

10 b$=“100 INPUT x$” 

20 |LINE,@b$ 

30 LIST 100 

Der Computer hat dann die Zeile 
100 in den Speicher übernommen 
und kann sie ausführen. So lassen 
sich z. B. auf sehr einfache Weise 
Funktionsplotter programmieren, 
die die darzustellende Funktion mit 
einem INPUT abfragen: 

10 INPUT “Welche Funktion”,a$ 

20 a$="40 DEF FN f(x)=”+a$ 

30 |LINE,@a$ 

50 FOR i=l TO 3 
60 PRINT i;FN f(i) 

70 NEXT i 

Nun noch einige Eigenheiten des 
Programms, die von Ihnen unbe¬ 
dingt beachtet werden müssen: 

- Bei der Ausführung des LINE-Be- 
fehls wird der Basic-Stack vom 
Computer gelöscht. Dort befinden 
sich alle offenen FOR-NEXT- und 
WHILE-WEND-Schleifen und Rück¬ 
sprungadressen aus GOSUB-Unter- 
programmen. Sie müssen also dar¬ 
auf achten, daß der LINE-Befehl 
nicht innerhalb offener Schleifen 
oder in Unterprogrammen ausge¬ 
führt wird. Während Sie aufgrund 
letzterer Einschränkung eventuell 
Ihre Programmstruktur verändern 


müssen, lassen sich Schleifen meist 
sehr einfach in IF-THEN-Konstruk- 
tionen verwandeln. 

- Die zu programmierende Zeile 
muß eine höhere Zeilennummer be¬ 
sitzen als die Zeile, in der der LINE- 
Befehl steht. Das ist aber durchaus 
sinnvoll, da ja die neue Zeile erst 
noch ausgeführt werden soll. 

Zurück zum Basic-Loader: Dieser ist 
selbst ein Beispiel für die Verwen¬ 
dung des LINE-Befehls. Die Zeilen 
310-340 werden in Zeile 300 aus 
den DATA-Zeilen zwischen Zeile 
530 und 560 gelesen und sofort da¬ 
nach ausgeführt. 

Für Programmierer und sonstige In¬ 
teressierte einige Bemerkungen zur 
Funktionsweise von LINE: Das Pro¬ 
gramm übernimmt den String, der 
beim RSX-Aufruf angegeben wird, 
in den Eingabepuffer des Compu¬ 
ters. Dieser liegt beim CPC-464 zwi¬ 
schen den Adressen &ACA4 und 
&ADA3; er ist also 255 Zeichen 
lang, entsprechend der maximalen 
Eingabelänge des Editors. Dann 
schaltet LINE das Basic-ROM ein 
und ruft die Codierungs-Routine im 
Basic-Interpreter auf. Diese liegt 
beim CPC-464 an der Adresse 
&E6BC. Da der Aufbau der Codier- 
Routinen bei den beiden Nachfolge¬ 
computern CPC-664 und 6128 ver¬ 
ändert wurde, lassen sich auch kei¬ 
ne neuen Einsprungstellen angeben. 
Damit ist LINE nur auf dem Erst¬ 
lings-Computer von Schneider lauf¬ 
fähig. Martin KotuJla/LM 


L i s -t i ng 2 LINE 
l£f0 ' 

110 * ^ ^ 

120 ' # RSX-Erweiterung LINE ^ 
130 ^ iif ^ 

140 * 
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150 ' 

160 ' Bitte bei der Eingabe die Zeilennummern beibehalten! 

170 • 

180 SYMBOL AFTER 254:SYMBOL 2S5,tt66,St0,ti3C,it66,g,66,&66,t,3C,ti0 
190 MEMORY HIMEM-&50:start=HIMEM-H 
200 DEF FNmsb(a)=INT<a/2S6) AND 255 
210 DEF FNlsb(a)=UNT(a) AND 255 

220 FOR i=start TO start+tt4C:READ a:sum-sum+a:POKE i,a:NEXT i 
230 IF sum=6381 THEN 250 ' Pruefsumme korrekt! 

240 PRINT CHR$(7);” * Fehler in den DATA-Zeilen!":PRINT:LIST 410- 

250 FOR 1=1 TO 4:READ a:a=ai-start 

260 va1ue=PEEK(a)+PEEK(a+l)*256-40960+start 

270 POKE a,FNlsb(vaIue):POKE a*l,FNmsb(value) 

280 NEXT i 

290 CALL start+14 • RSX einbinden 

300 READ a$:lLINE,Sa$:x=x+l:IF x<4 THEN 300 

350 PRINT CHR$(24)*”SELBSTMODIFIZIERENDE PROGRAMME MIT SLINE"*CHR$(24) 
360 LOCATE 10,5:PRINT CHR$(164)}" Martin Kotulla 1985" 

370 PR INT: PR INT STRING$(40,210) :PR1NT:PRINT 

380 PEN l:PRINT " Diese RSX-Erweiterung erm”+CHR$(255)+"glloht" 

390 PR1NT:PRINT " die Entwicklung selbstmodifizierender" 

400 PRINT:PRINT " Programme, z. B. :" 

410 PRINT:PRINT:PEN 2 

420 PRINT " A$="*CHR$(34)+"1000 DEF FN p(x)=PEEK(x)"*CHR$(34)*":" 

430 PR INT: PR INT " tLINE,SA$" 

440 PRINT:PRINT:PRINT 

450 DA TA &05, &A0, &C3, til8, &A0, &4C, ii49, &4E, &C5, A00, &00, g,00, it00, &00, &01,600 
460 DATA &A0, &21,g,0A, &A0, &CD, &Dl,tiBC, &C9, &CD, t,00, &B9, &21,M4, MC, ttll,M4 
4 70 DA TA MC, Ml, &FE, g,00, &13, &97, St77, tiED, &B0, &DD, &66,601, itDD, ME, t,00, ME 
480 DA TA &06, &00, &23, &5E, &23, &56, &EB, &! 1, M4, MC, AED, &B0, A21, AA4, &AC, &CD 
490 DA TA ABC, AE6, AC9, ACD, A00, AB9, A3A, A02, AC0, A32, A64, A01, AC9 
500 ' Daten zum Relokatieren des Maschinencodes xxxxxxxxxxxxxxxxxxximxxx 
510 DATA 0,3,15,18 

520 ' Programmzellen, die mit LINE programmiert werden 
530 DATA "310 MODE 1:INK 1,0:INK 0,13:INK 2,1" 

540 DATA "320 PAPER 0:BORDER 10:PEN 2:SPEED INK 30,20" 

550 DATA "330 LOCATE 1,1: PR INT STRING$(40,210) " 

560 DATA "340 LOCATE 1,2" m 

570 END ' —--- B 


L i 

s t i in g s 

LINE 

100 

r 

f 


110 

r 

/ 



120 

f 

9 


LINE - Programmierte Eingabe von Programmzeilen # 

130 

r 

/ 



140 

f 

/ 


NUR FUER DEN SCHNEIDER CPC-464 * 

150 

f 

/ 


a 

160 

r 

9 


170 

r 




180 

f 


ORG 

StA000 ; Der Basic-Loader erzeugt relokatiblen Code 

190 

t 



200 

t 

INPBUF EQU 

&ACA4 ; Eingabe- und Editierpuffer beim CPC-464 
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210 ' 

UROMON EQU 

gfB900 

/ KL UPPER ROH ENABLE: Basic-ROH einschalten 

220 ' 

’ ENCODE EQU 

g,E6BC 

; ROM-Routine zur Codierung einer Zeile 

230 ' 

LOGEXT EQU 

&BCD1 

; KL LOG EXT bindet RSX-Routinen ein 

240 ' 

r 




250 

' RSXTAB 

DEFU NAMTAB 

! Zeiger auf Namenstabeile 

260 ' 


JP 

LINE 

; Sprungvektor nach LINE 

270 





280 

NAMTAB 

DEFM 

”LIN” 

/ RSX-Name "LINE" 

290 


DEFB 

&C5, gt00 

; Wort- und Tabellenende 

300 





310 

SPACE 

DEFS 

S,04 

/ Vier Bytes fuer das Betriebssystem 

320 





330 

IN IT 

LD 

BC, RSXTAB 

{ Zeiger auf Sprungtabelle 

340 


LD 

HL,SPACE 

! Zeiger auf den Hilfsspeicher 

350 


CALL 

LOGEXT 

; RSX einbinden 

360 


RET 


/ Ruecksprung nach Basic 

370 





380 

LINE 

CALL 

UROMON 

f Basic-ROM einschalten 

390 





400 

• CLRBUF LD 

HL,INPBUF 

/ Zeiger auf Eingabepuffer 

410 

t 

LD 

DE, INPBUF 

! Ebenso 

420 

t 

LD 

BC, 254 

/ Laenge des Puffers-1 

430 

r 

INC 

DE 

/ DE inkrementieren 

440 

f 

SUB 

A 

: Akku loeschen 

450 

f 

LD 

(HL),A 

/ An die erste Pufferstelle Null schreiben 

460 

r 

LDIR 


{ LDIR zum Loeschen des Puffers "missbraucht" 

470 

460 

r 

' DESCRI 

LD 

H, (IX+l) 

; Highbyte des Stringdescriptors aus CALL 

490 

t 

LD 

L, (IX+0) 

; Ebenso das Lowbyte 

500 

r 




510 

' GETLEN LD 

C, (HL) 

/ Stringlaenge ins C-Register 

520 

t 

LD 

B,0 

/ Das zugehoerige B-Register loeschen 

530 

f 




540 

• GETADR INC 

HL 

; Zeiger auf Stringadresse im Descriptor 

550 

f 

LD 

E, (HL) 

; Lowbyte der Stringadresse lesen 

560 

r 

INC 

HL 

: Zeiger auf das Highbyte der Stringadresse 

570 

r 

LD 

D, (HL) 

/ Highbyte der Stringadresse lesen 

580 

t 




590 

• MOVSTR EX 

DE, HL 

; Ersetzt LD HL,DE 

600 

r 

LD 

DE, INPBUF 

/ Zeiger auf Editierpuffer 

610 

f 

LDIR 

; String in den Puffer kopieren 

620 

r 




630 

' ENTER 

LD 

HL, INPBUF 

: Zeiger auf den Editierpuffer 

640 

f 

CALL ENCODE 

; ROM-Routine zur Codierung aufrufen 

650 

t 

RET 


; Ruecksprung nach Basic 


660 

670 

680 

690 

700 

710 

720 

730 

740 


Hi Itsprogramm zur Feststellung des Computertyps (464/664/6128) 


COMPUT CALL UROMON 

LD A,(&C002) 
LD (&0164),A 
RET 

END 


Basic-ROH einschalten 

Modifikationsbyte des ROM-Headers lesen 
Im PEEKbaren RAM ab legen 
Ruecksprung nach Basic 

jfifjfjfÄjf******************************** 
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Uhrzeiten 
rund um die Weit 


Dieses Programm simuliert auf den 
Schneider-Computern eine Welt¬ 
zeituhr, Neben der Greenwich 
Mean Time (GMT oder UTC) wer¬ 
den 20 weitere Uhrzeiten von Städ¬ 
ten und Ländern rund um den Glo¬ 
bus angezeigt 


Nach dem Start meldet sich das Pro¬ 
gramm mit einigen Bemerkungen 
zur Funktionsweise. Sie können 
dann die aktuelle Uhrzeit eingeben 
- wohlgemerkt als Greenwich-Zeit, 
das ist MEZ-Winterzeit minus 1 
Stunde bzw. MESZ-Sommerzeit mi¬ 
nus zwei Stunden. Die Eingabe er¬ 
folgt dabei getrennt nach Stunden, 
Minuten und Sekunden. Unsinnige 
Werte werden erkannt und zurück¬ 
gewiesen; die Eingabe muß dann 
mit einem korrekten Wert wieder¬ 
holt werden. 

iSJach einem Tastendruck wird der 
Bildschirm aufgebaut: In der ober¬ 
sten Zeile erscheint die Anzeige der 
GMT/UTC-Weltzeit, auf dem übri¬ 
gen Bildschirm die Ortszeiten der 
20 weiteren Städte. Folgende Orte 
werden angezeigt: 

London, Mitteleuropa, Jerusalem 
(Israel], Moskau (Sowjetunion], Te¬ 
heran (Iran], Karachi (Pakistan], 
Delhi (Indien], Bangkok (Thailand], 
Hongkong, Tokio Qapan], Sydney 
(Australien], Johannesburg (Süd¬ 
afrika], Wellington (Neuseeland], 
Honolulu (Hawaii], Los Angeles, 
Denver, Chicago, New York (alle 
USA], Santiago de Chile (Chile], Rio 
de Janeiro (Brasilien]. 

Alle Ortszeiten werden in der 
Schriftgröße des MODE 2 ausgege¬ 
ben, nur die übergeordnete Weltzeit 
verwendet MODE-l-Lettern. 

Aus Zeitgründen erfolgt die Darstel¬ 
lung der Ortszeiten nur jeweils in 
Minutenabständen, während für die 
Weltzeit auch die Sekunden angege¬ 
ben werden. Martin Kotulla/LM 







Uellzeil 

20; 25:30 


London 

i-O : 

25 
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5 ■ 25 

MiUoleijropi 

21 : 

25 
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22 : 25 
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22 : 

25 
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3 ; 25 
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23 : 
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25 
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4 
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; 25 
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Anwendungen 


I_,istir»gs CPC-Weltzeituhr 


100 • »*»<(****** 


110 ' * 
120 ' * 
130 ' » 


CPC-Ueltzeituhr 


140 ’ #iKf#»ii(###*#*»##*#*#*#**#*f****** 

150 ' 

160 • (C) Martin KotuUa 8.10.1985 



190 DIM city$(20),oftset(20) 

200 FOR i=l TO 20.‘READ city$(i), oftset(i) :NEXT i 

210 DATA London (GMT), 0 , Mitteleuropa, 1, Jerusalem,2 

220 DATA Moskau, 3, Teheran, 3.5, Karachi, 5, Del hi, 5.5 

230 DATA Bangkok, 7, Hongkong, 6, Tokio, 9, Sydney, 10, Johannesburg, 2 

240 DATA Uellington,12,Honolulu,-10,Los Angeles,-8 

250 DATA Denver, -7, Chicago,-6, New York City,-5 

260 DATA Santiago de Chile,-4,Rio de Janeiro,-3 

270 • Symbole und Umlaute in(*)nnf»innnnnii(ii»*i(»inf»*»^****»»*>f*******^*********^** 
260 SYMBOL AFTER 32:REST0RE 370 
290 FOR i=128 TO 147 

300 FOR j=l TO 7:READ a$:a(j) = VAL(”tiX”*a$)'.NEXT j 

310 SYMBOL i+100,a(l),a(2),a(3),a(4),a(5),a(6),a(7),0:NEXT i 

320 SYMBOL 160,0,0,15,15,0,15,15,0 

330 SYMBOL 161,0,0,0,0,0,0,0,0 

340 SYMBOL 252, &66, i/0, t/66, t/66, t/66, t/66, t/3E, 0 

350 SYMBOL 253, i/66, t/0, i/3C, i/66, t/66, t/66, t/3C, t/0 

360 SYMBOL 254,0,0, 3, 3, 3,0,0,0 

370 DATA 00111111,11110000,11110000,111100ii, 11111100,11110^0^,^^^^^^^^ 

380 DATA 11110000,00111100,11111100,00111100,00111100,00111100,11110000 
390 DA TA 00000011,00001111,00000011,00000011,00000011,00000011,00111111 
400 DATA 11000000,11000000,11000000,11000000,11000000,11000000,11111100 
410 DATA 00001111,00111100,00000000,00001111,0011110^, ^^111111111 
420 DATA 11110000,00111100,00111100,11110000,00000000,00111100,11111100 
430 DA TA 00001111,00111100,00000000,00000011,00000000,00111100,00001111 
440 DATA 11110000,00111100,00111100,11110000,0011111^^,^^1111^^/^^^^^^^^ 

450 DA TA 00000011,00001111,00111100,11110000,11111111,00000000,00000011 

460 DATA 11110000,11110000,11110000,11110000,11111100,11110000,11111100 

470 DA TA 00111111,00111100,00111100,00111111,00000000,001111^^, 00001111 

480 DATA 11111100,00001100,00000000,11110000,00111100,0^111100,11110000 

490 DA TA 00001111,00111100,‘00111100,00111111,001111^^, ^^1111^^, 00001111 

500 DATA 11110000,00111100,00000000,11110000,00111100, ^^111100,11110000 

510 DATA 00111111,00111100,00000000,00000000,00000011,00000011,00000011 

520 DATA 11111100,00111100,00111100,11110000,11000000,11000000,11000000 

530 DA TA 00001111,00111100,00111100,00001111,00111100,00111100,00001lli 

540 DATA 11110000,00111100,00111100,11110000,00111100,00111100,11110000 

550 DA TA 00001111,00111100,00111100,00001111,00000000,00111100,00001111 

560 DATA 11110000,00111100,00111100,11111100,00111100,00111100,11110000 

570 ' Titel und Anleitung »##»«*</#*#*#*»*»************************************* 

580 CLS.-MODE 1 

590 INK 1,0:INK 0,13:INK 2,0,3:1NK 3,1 
600 PAPER 0:BORDER 10:PEN 3:SPEED INK 30,20 
610 LOCATE 1,1:PR INT STRING$(40,210)! 
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620 LOCATE 1,2:PRINT CHR$(24)+SPACE$(14)*”VELTZEITUHR"+SPACE$(1S)*CHR$(24) 

630 LOCATE 10,5:PRINT CHR$(164)i” Martin Kotuila 1985” 

640 PRINT STRING$(40,210)iPRINT 

650 PEN liLOCATE 1,10!PRINT " Dieses Programm stellt auf dem” 

660 PRINTiPRINT ” Bildschirm eine Weltzeituhr dar." 

670 ’ Eingabe der Uhrzelt »*«**»*ff*«iHf*iiii**Minni**)nnnnnnnnf*innni»innnnnnf»«innnunf 
680 PEN 3SPRINT!PRINTiPRINT” Bitte geben Sie die GMT-Uhrzeit ein!” 

690 PRINTiPRINT ” Diese entspricht MEZ -1 Stunde.” 

700 LOCATE 1,19sINPUT” Stunden? ”,hour!hour=INT(hour) 

710 IF hour<0 OR hour>23 THEN PRINT CHR$(7)IsGOTO 700 

720 LOCATE 1,21sINPUT” Minuten? ”,minuteiminute=INT(minute) 

730 IF minute<0 OR minute>S9 THEN PRINT CHR$(7);sGOTO 720 
740 LOCATE l,23iINPUT" Sekunden? ”, secssec=INT(sec) 

750 IF sec<0 OR sec>59 THEN PRINT CHR$(7)IsGOTO 740 
760 PEN 2 

770 LOCATE 25,19sPRINT CHR$(150)SSTRING$(13,154):CHR$(156) 

780 LOCATE 25,20iPRINT CHR$(149)!SPACE$(13);CHR$(149) 

790 LOCATE 25,21 SPRINT CHR$(149)!” Start durch ”;CHR$(149) 

800 LOCATE 25,22sPRINT CHR$(149)iSPACE$(13);CHR$(149) 

810 LOCATE 2S,23iPRINT CHR$(149)1” Tastendruck ”:CHR$(149) 

820 LOCATE 25,24iPRINT CHR$(149)!SPACE$<13);CHR$(149) 

830 LOCATE 25,2SiPRINT CHR$(147) ;STRING$(13,154) ;CHR$(153) 

840 WH ILE INKEY$=””!WEND 

850 ’ Stadtliste ausgeben »»*»»****»*«** 

860 MODE 2!PEN 1 
670 FOR i=l TO 10 

860 LOCATE 10,2*i+3sPRINT city$(i)! 

890 NEXT i 

900 FOR 1=11 TO 20 

910 LOCATE 44,2iH-17!PRINT city$(i); 

920 NEXT i 

930 ' Umrandungen der Felder zeichnen »»»*»*junnnnnnnni*ii**»x»inf*]nnnnf»»if*xiufiuf» 
940 LOCATE 17,1 SPRINT CHR$(150) iSTRlNG$(44,154) iCHR$(156) 

950 LOCATE 6,3 

960 PRINT CHR$(150);STRING$(10,154)!CHR$(155);STRING$(22,154)!CHR$(158)! 

970 PRINT STRING$(21,154);CHR$(155);STRING$(12,154);CHR$(156) 

980 FOR 1=4 TO 241LOCATE 6, iSPRINT CHR$(149); 

990 LOCATE 40, iSPRINT CHR$(149)IsLOCATE 75, iSPRINT CHR$(149); 

1000 NEXT i 
1010 LOCATE 6,25 

1020 PRINT CHR$(147);STRING$(33,154):CHR$(155):STRING$(34,154);CHR$(153) 

1030 LOCATE 17,2 SPRINT CHR$(149) ;” Weltzeit UTC/GMTs"; 

1040 ' Weltzeiten erstmalig ausgeben und Timer starten »**#**»*»**»»»»snnanf»»*» 

1050 GOSUB 1280 

1060 EVERY 50 GOSUB 1090 

1070 GOTO 1070 

1080 ' Hauptzeit formatiert ausgeben 

1090 LOCATE 45,2 

1100 hourx$=MID$(STR$(hour),2) 

1110 IF LEN(hourx$)=1 THEN hourx$=” ”+hourx$ 

1120 minutex$=HID$(STR$(minute),2) 

1130 IF LEN(minutex$)=1 THEN minutex$=”0”+minutex$ 

1140 secx$=MID$(STR$(sec),2) 

1150 IF LEN(secx$)=l THEN secx$=”0"+secx$ 

1160 pt$=hourx$!GOSUB 1590SPRINT CHR$(160);CHR$(161)! 
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1170 pt$=minutex$:GOSUB 1590:PRINT CHR$(160)!CHR$(161)! 

1180 pt$=secx$:GOSUB 1590 
1190 PRINT " ”!CHR$(149)! 

1200 DI 

1210 ' Uhrzeit weiter laufen lassen ###*##*#«**«*****«**(**»********************* 
1220 sec=sec+l 

1230 IF sec=60 THEN sec=0:minute=minute+l 
1240 IF minute=60 THEN minute=0:hour=hQur+l 
1250 IF hour=24 THEN hour=0 
1260 IF sec<>0 THEN EU RETURN 

1270 ' Uhrzeiten der ersten 10 Staedte fortschreiben 

1280 FOR i=l TO 10 

1290 hour2=INT(hour+offset(i)) 

1300 minute2=minute 

1310 IF hour2>23 THEN hour2=hour2-24 

1320 IF INT(offset(i))=offset(i) THEN 1360 

1330 ininute2=minute2+30 

1340 IF niinute2>60 THEN minute2=minute2-60:hour2=hour2+l 

1350 ' Uhrzeiten ausgeben 

1360 LOCATE 30,2*i+3 

1370. hour$=MID$(STR$(hour2),2) 

1360 IF LEN(hour$)=l THEN hour$=” •'+hour$ 

1390 minute$=HID$(STR$(minute2),2) 

1400 IF LEN(minute$}=l THEN winute$=”0”-Hainute$ 

1410 PRINT hour$!” ■’ ";minute$ 

1420 NEXT i 

1430 ' Staedte 11-20: Zeiten fortschreiben 

1440 FOR i=ll TO 20 

1450 hour2=INT(hour*offset(i)) 

1460 IF hour2>24 THEN hour2=hour2-24 

1470 IF hour2<0 THEN hour2=hour2+24 

1480 ' Formatierte Zeitausgabe der uebrigen Staedte 

1490 LOCATE 66,2xi-17 

1500 hour$=MID$(STR$(hour2),2) 

1510 IF LEN(hour$)=l THEN hour$=" "■^hour$ 

1520 minute$=MID$(STR$(minute),2) 

1530 IF LEN(minute$)=l THEN minute$="0’’*minute$ 

1540 PRINT hour$;” : ";minute$ 

1550 NEXT i 
1560 EI 
1570 RETURN 

1580 ' Unterprogramm: Ausgabe von PT$ in MODE l-Lettern **»x*»»xx**x***»*»*»*** 
1590 FOR y=l TO 2 

1600 IF y=l THEN IF ASC(pt$)=32 THEN PRINT SPACE$(2)l:GOTO 1630 
1610 char=228+2x(ASC(MID$(pt$, y))-48) 

1620 PRINT CHR$(char);CHR$(char+l); 

1630 NEXT.y.'RETURN 



Comp uter 


51 


Schau 






Anwendungen 


DATA-PRO - 

Ein komfortables Datei¬ 
verwaltungsprogramm 


Schon in Heß 4/85 der Computer- 
Schau und auch der ersten Ausga¬ 
be unseres ComputerSchau-Kom- 
paktwissens über die Schneider 
CPC's haben wir ein Programm zur 
Dateiverwaltung gebracht Auf¬ 
grund des enorm hohen Leserrück¬ 
laufes und der ebenso hohen Nach- 
ßage nach derartigen Program¬ 
men haben wir uns entschlossen 
auch in dieser Ausgabe damit zu 
dienen. 


Das schon genannte Dateiverwal¬ 
tungsprogramm hatte (wie wir vie¬ 
len Zeitschriften und Anrufen ent¬ 
nehmen konnten] alle begeistert, 
die es korrekt abgetippt hatten. An¬ 
dererseits aber wurden wir auch 
noch gebeten, ob wir nicht noch 
diese oder jene Eigenschaft mit ein¬ 
bauen könnten. Sicherlich wäre 
dies machbar, aber wir wollen ja 
keine Software verkaufen, sondern 
Ihnen Anregungen, Tips und Kniffe 
mitteilen, die Sie beim Umgang mit 
Ihren CPC's verwerten können. 

In diesem Programm sind nun eini¬ 
ge der Wünsche realisiert worden. 
Welches der beiden Programme für 
Sie nun das richtige ist, müssen Sie 
selbst entscheiden. Vielleicht aber 
passen Sie eines der beiden Pro¬ 
gramme an Ihre speziellen Wünsche 
an und haben dann die genau für 
Sie passende Dateiverwaltung. 
Derjenige, der Probleme beim Ab¬ 
tippen hat, oder die Mühe der Ein¬ 
gabe scheut, kann alle größeren Pro¬ 
gramme dieses Heftes auch beim 
Franzis-Software-Service als „Ab¬ 
tipphilfe“ erhalten. 


Pragrammbesdireibung: 

DATA-PRO ist ein universelles Pro¬ 
gramm zur Verwaltung von Dateien 
jeglicher Art. Es besitzt einen Mas¬ 
kengenerator zur Erstellung der Ein¬ 
gabe- und der Druckmaske und ist 
voll menügesteuert. Als Besonder¬ 
heit sollen auch gleich die komfor¬ 
tablen Such-, Sortier- und Druck¬ 
möglichkeiten angeführt werden, 
die selbst bei käuflicher Software 
oft nicht in diesem Maße gegeben 
sind. Weiterhin verfügt das Pro¬ 
gramm über ein Systemmenü das es 
erlaubt, Bildschirmfarben zu än¬ 
dern oder auch Disketten- oder Kas¬ 
settenfunktionen aufzurufen. 

Die Funktionen im einzelnen: 

1. Nach dem Programmstart erfolgt 


im Menü die Abfrage nach „neuer“ 
oder „bestehender“ Datei. Neu be¬ 
deutet, daß die komplette Datei erst 
neu definiert werden soll. Beste¬ 
hend heißt, daß diese Datei bereits 
existiert und von Band oder Disket¬ 
te geladen werden soll. 

2. Soll eine neue Datei erstellt wer¬ 
den, so stehen folgende Auswahl¬ 
möglichkeiten zur Verfügung: 

- Datei und Maske erstellen 

Die neue Datei muß definiert sein, 
bevor man mit ihr arbeiten kann. 

- Daten eingeben 

Der normale Eingabemodus. 

- Datei abspeichern 

Dient zum Abspeichern der einge¬ 
gebenen Daten. 

Der letzte Punkt dieses Untermenüs 
ermöglicht, wenn noch keine Daten 
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■imMHUTwes-fiwcam -mia-wo- ♦ ists n 


IbM: NNll».Petff < 




lalM UfCMMNt... 

dMA : Heitfrt latn 
I: tntan 
L : UcsdMl 
N : 2««idt iM Mmt 


Satfi : Telefon 
Datensaetze: 10 
Datenfelder: 2 
Gesantbstes: 400 

Kode: Daten einseben 


Statusanzeigen geben Auskunft über Dateinamen, Anzahl der Datensätze usw* 


eingegeben wurden auch das Ab¬ 
speichern der reinen Datei- und 
Maskendaten. 

3. Eingeben der Basisdaten und de¬ 
finieren einer Datei: 

- Abfrage des Dateinamens 

- Angabe der maximalen Werte der 
Datenfelder und Datensätze 

-Angabe der Bezeichnungen und 
Länge der einzelnen Datenfelder 

- Definition der Eingabemaske 

Die Bezeichnungen und Längen der 
einzelnen Datenfelder werden spä¬ 
ter auch in der Eingabemaske mit 
ausgegeben. Die Festlegung des 
Maskenaufbaues erfolgt mittels Cur¬ 
sorsteuerung und wird durch die 
COPY-Taste fixiert. 

4. Das Hauptmenü. Es besteht aus 
folgenden Menüpunkten: 

- Daten eingeben 

Hier kann ein neuer Datensatz ein¬ 
gegeben und dann der bereits beste¬ 
henden Datei hinzugefügt werden. 

- Daten suchen 

Nach Angabe des zu durchsuchen¬ 
den Datenfeldes erfolgt die Abfrage 
des Suchbegriffes. Der Suchbegriff 
kann aus einem kompletten Wort 
oder auch aus sogenannten „Wild¬ 
cards“, also den sogenannten „Aste¬ 
risks“ = Sternchen] bestehen. 
Das heißt bei Eingabe von *er wer¬ 
den alle Einträge welche mit „er“ 
enden, angezeigt. 

- Drucken 

Dies ist auf zwei Weisen möglich.. 
Einmal ohne eine bestimmte Druck¬ 
maske in einer vorgegebenen Form. 
Hierbei kann angegeben werden, 
welcher Datensatz gewünscht wird 
(Einzeldruck). Ansonsten werden 
alle Datensätze „angedruckt“. Zum 
anderen ist aber nach Erstellen ei¬ 
ner Druckmaske auch eine forma¬ 
tierte Ausgabe möglich. 


- Anzeigen der gesamten Datei. 
Diese erfolgt über Menüsteuerung. 
Über diesen Punkt sind auch beste¬ 
hende Datensätze lösch- oder än¬ 
derbar. 

- Ändern der Eingabemaske 
Auch nach längerem Arbeiten ist 
dies noch möglich. 

- Datei laden 

Eine von DATA-PRO erstellte Datei 

- inklusive der Maskendaten - kann 
geladen werden. (Im Speicher ste¬ 
hende Werte werden hierdurch ge¬ 
löscht!) 

- Datei abspeichern 

„Saven“ der Datei auf Band oder 
Diskette. 

- Datei sortieren 

Nach entsprechender Eingabe des 
zu sortierenden Feldes und der 
Feldnummer bis zu der sortiert wer¬ 
den soll, wird die Umsortierung 


durchgeführt. Zu beachten ist, daß 
der Sortiervorgang beispielsweise 
bei einer Datei von mehr als 100 
Sätzen (programmbedingt) schon ei¬ 
ne Zeitdauer von mehr als 30 Minu¬ 
ten beanspruchen kann. Deshalb 
sollte man wirklich nur soviel sor¬ 
tieren lassen, wie erforderlich ist. 

- Prograramenda 

Sicherheitshalber wird hier noch 
abgefragt, ob abgespeichert werden 
soll. Anschließend erfolgt ein 
RESET. 

- Systemmenü 

Wie schon angeführt, können die 
Bildschirmfarben den eigenen Vor¬ 
stellungen angepaßt werden. Eben¬ 
falls möglich bei diesem Programm¬ 
punkt ist das Arbeiten mit Disket¬ 
ten- und Kassettenbefehlen. 

Viel Erfolg beim Verwalten Ihrer 
Daten. Jens Krise/LM 


L^ls^blngs Dateiverwaltungsprogramm DATA-PRO 


l£rj0r f 

110 * (c) 1965 by Jens Kriese 
120 ' 

130 OPENOUT^dummy^:MEMORY HlMEM-1 tCLQSEQUT 
140 ON ERROR GOTO 3820 
150 ON BREAK GOSUB 5020 
160 '- variablen 
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170 MODE 2 

180 DIH t$(20),ax(20),ay(20),d$(10,20),dd$(10,20), 1(20), t$(20), sort(20), dz$(10), 
dx (20), dy (20), g$ (20), dxa (20), dya (20) 

190 FOR i=l TO 20!ax(i)=l:ay(i)-l:NEXT 

200 dt=5:x=10:naiDe$=””:u=0:lNK 0,0: JNK 1,24:B0RDER 0 

210 GOSUB 5120 

220 ' - startmenue 

230 CLS 

240 LOCATE 10,10:PRINT”<1> Neue Datei erstellen" 

250 LOCATE 10,12:PR1NT”<2> Bestehende Datei bearbeiten" 

260 GOSUB 670 
270 IF iBen=l THEN 300 
280 IF men=2 THEN 400 
290 GOTO 260 

300 '- menue neue datei 

310 CLS:CLS« 1 

320 LOCATE 10,9:PRINT"<1> Datei und Maske definieren" 

330 LOCATE 10,11:PRINT"<2> Daten eingeben" 

340 LOCATE 10,13:PR1NT"<3> Datei abspeichern" 

350 GOSUB 670 

360 IF wen=l THEN 1290 

370 IF men=2 THEN 400 

380 IF aen=3 THEN GOSUB 1070 

390 GOTO 310 

400 ’ - menue best, datei 

410 ON BREAK GOSUB 5020 
420 ON ERROR GOTO 3820 
430 CLS:CLS«l:PEN 1 

440 L0CATE«2,2, 7:PR1NT«2, "Mode: Hauptmenue " 

450 LOCATE 10, 3:PRINT"<0> Daten eingeben" 

460 LOCATE 10, 4:PRINT"<1> Daten suchen" 

470 LOCATE 10,6:PRINT"<2> Drucken" 

480 LOCATE 10, 7:PRINT"<3> Anzeigen gesamte Datei" 

490 LOCATE 10,9:PR1NT"<4> Aendern Eingabemaske" 

500 LOCATE 10,11:PR1NT"<5> Datei laden" 

510 LOCATE 10,12:PR1NT"<6> Datei abspeichern" 

520 LOCATE 10,14:PR!NT"<7> Sortieren Daten" 

530 LOCATE 10,16:PRINT"<8> Programm beenden" 

540 LOCATE 10,17:PR1NT"<9> Systemmenue" 

550 GOSUB 670 
560 IF men=0 THEN 2030 
570 IF men=l THEN 2610 
580 IF men=2 THEN 3880 
590 IF men=3 THEN 1790 
600 IF men=4 THEN 1570 
610 IF men=5 THEN GOSUB 750 
620 IF men=6 THEN GOSUB 1070 
630 IF men=7 THEN 2940 
640 IF men=8 THEN 3550 
650 IF men=9 THEN 3610 
660 GOTO 400 

670 '- eingabe bei menue 

660 i«="" 

690 PRINT«3, "Bitte uaehlen Sie eine der Menue-Moeglichkeiten aus...!:LINE INPU 
T«3, i$ 
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700 IF THEN 690 

710 i$=LEFT$(l$,l)!lF ASC(if)<48 OR ASC(i$)>57 THEN 680 
720 men=VAL<i$) 

730 CLSt3 
740 RETURN 

750 '- datei laden 

760 CLS:CLS»1 
770 name$=‘””iu=0 
780 CLS»2 

790 L0CATEt2,2,7:PRlNT42,"Hode: Datei laden" 

800 PRINT§3, "Name der zu ladenden Datei:L1NE INPUT113, lai$ita$=LEFTt(lal$,8 
)*".dat" 

810 ERASE d$, sort, dx, dy, dxa, dya, g$ 

820 VJNDOU SUAP 0,3 
830 OPEN IN lat 
840 INPUT»9,x 
850 INPUT§9,dt 
860 FOR 1=1 TO dt 
870 INPUT»9,tt(i) 

880 INPUTU9,ax(i) 

890 lNPUTt9,ay(i) 

900 INPUT119, 1(1) 

910 lNPUT*9,lt(i) 

920 NEXT 

930 DIM d$(x,df),dx(df),dy(df),gt(df},dxa(dt),dya(df),sort(x) 

940 FOR 11=1 TO X 
950 FOR 1=1 TO dt 
960 INPUT»9,d$(ii, 1) 

970 NEXTiNEXT 
980 CLOSEIN 
990 UINDOU SUAP 0,3 
1000 name$=lalt 
1010 CLS«2:CLSä3 

1020 PRINT*2:PRINT»2," Datei : "namet 

1030 PRINTi2," Datensaetze:"x 
1040 PRINTi2, " Datenfel der:"df 

1050 PRINTt2," Gesamtbytes:";:FOR aa=l TO df:u=u+l(aa)iNEXT:PRINTt2,x»u 
1060 RETURN 

1070 ' - datei saven 

1060 CLStCLSti 

1090 L0CATElf2,2, 7:PRINTt2, "Mode: Datei abspeichern" 

1100 UINDOU SUAP 0,3 

1110 OPENOUT LEFTt(namet,8) + ".dat" 

1120 PRINT*9,x 
1130 PRINT99,df 
1140 FOR 1=1 TO dt 
1150 PRINT99, t$(i) 

1160 PRINT*9,ax(i) 

1170 PRINT»9,ay(i) 

1180 PRINTtO, 1(1) 

1190 PRINTt9, lt(l) 

1200 NEXT 
1210 FOR 11=1 TO X 
1220 FOR 1=1 TO dt 
1230 PRlNT»9,d$(ll, 1) 
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1240 NEXTiNEXT 
1250 CLOSEOUT 
1260 UINDOV SWAP 0,3 
1270 CLS*3 
1280 RETURN 

1290 ' - basisdaten eingeben 

1300 CLStCLS§2 

1310 L0CATE42,2, 7:PRINT*2, "Mode: Basisdaten" 

1320 PRINTt3, "Naae der neuen Datei ÜINE INPUTU3,i$:name$=LEFT$((i$*” 

”),8) 

1330 L0CATE42,2,2: PR INT42, "Datei : "naae$ 

1340 CLS*l:CLS»3 

1350 PRINTi3, "Wieviele Datensaetze(<2000):LINE INPUT «3,x$:x=VAL(x$) 

1360 PRINT»2, " Datensaetze:"x 
1370 CLS*l:CLS»3 

1380 PRlNTt3, "Wieviele Datenfelder(<21):L1NE INPUT *3,df$:dt=VAL(df$) 

1390 PR1NT*2, " Datentelder:"df 

1400 ERASE d$,sort,dx,dy,g$,dxa,dya:DlM d$(x, df), g$(df), dxa(df), dya(df), dx(df), d 
y(df), sort(x) 

1410 CLSlH:CLSt3 
1420 LOCATE 1,3 
1430 FOR i=l TO df 

1440 PRlNTi3, "Bezeichnung Datenfeld"i".. .>"} :L1NE lNPUTi3,t$(i) 

1450 PRINTHB, "Laenge. ..>"',:L1NE 1NPUT»3, 1$: l(i) = VAL(l$) 

1460 l$(i) = "":FOR ii=l TO 1 (i):l$(i) = }$(i)*".":NEXT 
1470 PRINT" Nr. "i": ",‘t$(i)!" "!l$(i) 

1480 NEXT 

1490 PRlNTt3, "Alle Eingaben OK ?...>"!:GOSUB 3500:1F i$="N" THEN 1500 ELSE 1570 
1500 CLSHltPRlNTllltPRlNTil," Welche Bezeichnung soll"," geaendert werden ?" 

1510 PR1NT«3, "Nr... :L1NE 1NPUT*3, i$:i = VAL(i$} 

1520 PR1NT113, "Neue Nr. "i". . .>";:L1NE 1NPUT*3, t$(i) 

1530 PR1NT§3, "Neue Laenge. ..>" 1 :L1NE 1NPUTU3, i$: 1 (i) = VAL(i$) 

1540 l$(i) = ”":FOR ii=l TO 1(i):1 $(i) = 1$(i)*". ":NEXT 

1550 CLS:PR1NT:PR1NT:F0R i=l TO df:PRlNT" Nr."i": ";t$(i);" ";l$(i):NEXT 

1560 GOTO 1490 

1570 ’ - Positionierung 

1580 PR1NT«2," Gesaatbytes:"! :F0R aa=l TO df :u=u+l (aa) :NEXT:PRINT112, x»u 
1590 CLS 

1600 FOR i=l TO df 

1610 xx=ax(i):yy=ay(i):xxl=xx:yyl=yy 

1620 CLSil3:CLSlH:PRlNTtH:PRlNTäl," Bitte positionieren Sie"," mit den Cursor-Tas 

ten in der Eingabemaske den Platz fuer das Daten 

feld"i 

1630 PRlNTHltPRlNTUl, " COPY = Fixieren" 

1640 LOCATE xxl, yyl:PR1NT STRlNG$(LEN(t$(i))+LEN(1$(i))+2, " ") 

1650 LOCATE xx,yy:PRlNT t$(i);" ";l$(i) 

1660 IF i>l THEN FOR ai=l TO i-1 .'LOCATE ax(ai),ay(ai) '.PRINT t$(ai);" ";I$(ai):N 

EXT 

1670 xxl=xx:yyl=yy 
1680 i$=lNKEY$ 

1690 IF i$=CHR$<240) AND yy>l THEN yy=yy-l 

1700 IF i$=CHR$(241) AND yy<20 THEN yy=yy+l 

1710 IF i$=CHR$(242) AND xx>l THEN xx=xx-l 

1720 IF i$=CHR$(243) AND xx<50 THEN xx=xx+l 

1730 IF i$=CHR$(224} THEN ax(i)=xx:ay(i)=yy:GOTO 1750 
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1740 GOTO 1640 

1750 PRINTiO, "Alle Eingaben OK.. tGOSUB 3500:IF i$="N" THEN 1620 
1760 PRINTtS 
1770 NEXT i 
1780 GOTO 300 

1790 ' - anzeigen gesamte datei 

1800 i=i:ia=l:al=l:CLS:CLS41 

1810 L0CATE«2,2,7:PRINT§2,”Mode: Anzeigen Datei" 

1820 LOCATE*!, l,2:PRlNTil, " < = Zurueckbiaettern" 

1830 PRINTtl, " > = Vorblaettern" 

1840 PRINTtl, " S = Stop" 

1850 PRINTtl, " A - Aendern" 

1860 PRINTtl, " L = Loeschen" 

1870 PRINTtl, " M = Zurueck ins Menue" 

1880 FOR ii=l TO df:LOCATE ax(ii),ay(ii):PRINT t$(ii)}" ";d$(i, ii);:FOR aa=LEN( 

d$(i,ii)) TO l(ii)-l:PRINT" ";:NEXT aa:PRINT 
1890 NEXT ii 

1900 L0CATEtl,3,12:PRINTtl, "Datensatz:”;ii" " 

1910 dat=i 

1920 i$=LOUER$(INKEY$) 

1930 IF it="s" THEN ia=l 
1940 IF i$="." THEN ia=0:ai=l 
1950 IF i$="," THEN ia=0:ai=-l 

1960 IF it-"a" AND ia=l THEN GOSUB 2410:GOTO 1810 

1970 IF it="I" AND ia=l THEN GOSUB 2330:GOTO 1810 

1980 IF i$="m" THEN 400 

1990 IF ia=0 THEN i=i+ai 

2000 IF i<l THEN i=x:ai=-l 

2010 IF i>x THEN i=l 

2020 GOTO 1880 

2030 ' - daten eingehen 

2040 ii=l 

2050 CLS:CLSt3:CLStl 

2060 L0CATEt2,2,7: PR lNTt2, "Mode: Daten eingeben" 

2070 PRINTtl:PRINTtl, " Bitte geben Sie die Daten ein. Eingaben mit <Enter> a 
bschliessen." 

2080 FOR ai=ii TO x:IF d$(ai, 1) = "" THEN ii=ai:GOTO 2110 
2090 NEXT 

2100 PRINTtS, "Die Datei ",‘name$;" ist voll !!!":FOR i=l TO 2000:NEXT:GOTO 400 
2il0 L0CATEtl,2,12:PRINTtl, "Datensatz:":ai 
2120 dat=ai 

2130 FOR il=l TO df:LOCATE ax(il),ay(il) 

2140 PRINT ti(il)!" ";1 $(i1):NEXT 
2150 FOR i2=l TO df 

2160 LOCATE (ax(i2)+LEN(tS(i2))+2), ay<12):PRINT I$(i2);"<" 

2170 LOCATE ax(i2), ay(i2):PRINT t$(i2);" ";:LINE INPUT;i$ 

2180 d$(ai,i2)=LEFT$(i$,1(12)) 

2190 GOSUB 2570 
2200 NEXT i2 

2210 PRINTt3, "Eingaben OK... >"!:GOSUB 3500:IF i$="N" THEN dt(ai, 1) = "":GOTO 2050 
2220 PRINTt3 

2230 CLStl .‘PRINTtl .'PRINTtl, " Daten angenommen... " 

2240 PRINTtl'.PRINTtl, " <ENTER> = Heitere Daten" 

2250 PRINTtl, " A = Aendern" 

2260 PRINTtl, " L = Loeschen" 
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2270 PR1NT91, " M = Zurueck ins Menue” 

2280 i$=LOUER$(INKEY$):IF i$=”" WEN 2280 
2290 IF i$=”Bi" WEN 400 

2300 IF i$="a'* WEN GOSUB 2410:FQR i2=l TO df:GOSUB 2570:NEXT 
2310 IF i$='>I" THEN GOSUB 2330:FOR i2=l TO dfsGOSUB 2570:NEXT 
2320 GOTO 2030 
2330 ' - up 1 Gesehen 

2340 L0CATE42,2,7iPRINT42,"Mode: Loesohen Datei" 

2350 PRINT§3, "Uirklich loeschen..:GOSUB 3500 
2360 JF i$="N" THEN PRINT«3:RETURN 
2370 FOR aa=l TO df:d$(dat,aa)=””:NEXT 
2380 PRINTi3, "Datei geloesoht !" 

2390 FOR aa=l TO 1000:NEXT:CLS»1 :PRINTIf3 
2400 RETURN 

2410 ’ - up aendern 

2420 CLSiCLS»! 

2430 PRINT*1:PR1NT«1, " Um Daten zu aendern bitte die Feldnummer eingeben." 

2440 L0CATEi2,2,7:PRlNT»2,"Modei Aendern Daten " 

2450 FOR i2=l TO df:GOSUB 2600:NEXT 

2460 PRINT»3,"Uelche Nr. soll geaendert werden. ..>";:LINE INPUT§3, i$:oo=VAL(i$} 
2470 IF oo>df OR 00=0 THEN 2460 

2480 PRINT«3, "Neuer Text...>"!:LINE INPUT03,itii$=LEFT$(i$, l(oo)) 

2490 d$(dat,oo)=i$ 

2500 FOR i2=l TO dt:GOSUB 2S70:NEXT 
2510 PRINT03 

2520 CLS0l:PRlNT*l:PRINT01,” A = Ueiter aendern" 

2530 PR1NT01, " <ENTER> = Zurueck" 

2540 i$=LOUER$(INKEYS):IF i$="" THEN 2540 
2550 IF i$="a" THEN 2420 
2560 CLSiltRETURN 

2570 '- up printen datensatz 

2580 LOCATE ax(i2),ay(i2):PRINT t$(i2);" ";d$(dat, i2)!:FOR aa=LEN(d$(dat,i2)) T 

0 I(i2)-l:PRINT" "l:NEXT aa:PRINT 
2590 RETURN 

2600 LOCATE ax(i2)+LEN(t$(i2))-3,ay(i2):PRINT i2;"> ";d$<dat, i2);:FOR aa=LEN(d$( 
dat,i2)) TO I (i2)-l :PRINT" "! :NEXT aa .‘PRINT:RETURN 
2610 ' - daten suchen 

2620 CLS:CLS0l:LOCATE«Z,2,7:PRINT»2,"Mode: Suchen Daten " 

2630 FOR i2=l TO dt:dat=l:GOSUB 2600:NEXT 

2640 PRINT01:PRINT01, " Eingabe des zu durchsuch- enden Feldes. Bei 0 werden a 
Ile Datenfelder durchsucht" 

2650 PRINT03, "Feld Nr. ..>"! :L1NE INPUT03, i$:aa=VAL(i$) :xs=aa 

2660 CLS«l:PRINT*l:PRINT01," Uonach soll gesucht werden. Z.B. St* = alles mit St 
... »er = alles mit ...er" 

2670 PRINT03, "Eingabe. . .>";:LINE INPUT03, if:su$=i$ 

2680 PRINT03, "Suchroutine ist gestartet. ":FOR o=l TO 200:NEXT 
2690 su=0:lF LEFT$(su$, 1) = "»" THEN su=l 
2700 IF su=l THEN 2720- 
2710 IF su=0 THEN 2790 

2720 ' - » am an fang 

2730 ii=xs:FOR i=l TO x 

2740 IF xs=0 THEN FOR ii=l TO df 

2750 IF RIGHTi(d$<i,ii),LEN(su$)-l)=RIGHT$(suS,LEN(suS)-l) THEN GOSUB 2860 
2760 IF xs=0 THEN NEXT ii 
2770 NEXT i 
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2780 GOTO 2850 

2790 ' - » am ende 

2800 ii=xs:FOR i=l TO x 

2810 IF xs=0 THEN FOR ii=l TO df 

2820 IF LEFT$(d$(i, ii),LEN<su$)-l)=LEFT$(su$,LEN(su$)-i) THEN GOSUB 2860 
2830 IF xs=0 THEN NEXT ii 
2640 NEXT i 

2850 PRINT43, ’*Keine Daten gefunden. "tFOR o= 1 TO 1000 :NEXT:GOTO 400 
2860 ' - ausgabemenue suchen 

2870 PRINT43, '•Daten gefunden. ".'FOR o=l TO 500:NEXT 
2680 dat=i:FOR i2=l TO df:GOSUB 2570:NEXT 

2890 CLSItl:L0CATE»l,2,7:PRINTIIl,"<Enter> = Ueitersuchen", " H = Zurueck zum Henue 

ff 

2900 i$=INKEY$:IF 14=="" THEN 2900 
2910 IF i$="m" THEN 400 

2920 PRINT43, "Suchroutine ist gestartet.":FOR o=l TO 200:NEXT 
2930 RETURN 

2940 ' - sortieren 

2950 L0CATE42,2, 7:PRINT§2, "Mode: Sortieren " 

2960 CLE:CLS*1 

2970 dat=l:FOR i2=l TO df:GOSUB 2600:NEXT 

2980 PRINTÜS, "Sortieren nach Feld.. .>"!:LINE lNPUTi3, i4:su=VAL(i$) 

2990 PRINTi3, "Bis zu welchem Datensatz soll sortiert werden.:LINE INPUT»3,i 
$:xx=VAL(i4) 

3000 PRINT§3,"<A)-Aufsteigend (Z)-Absteigend sortieren...>"I:GOSUB 3500 

3010 IF i$="A" THEN von=l 

3020 IF it="Z" THEN von=2 

3030 IF i$<>"A" AND i$<>"Z" THEN 3230 

3040 CLS 

3050 PRINT CHR$(7):PRINT»3, "Vorsortieren gestartet." 

3060 ' 

3070 ' 

3080 FOR i=l TO xx 
3090 sort(i)=0 
3100 NEXT i 
3110 • 

3120 FOR i= 1 TO xx 

3130 IF MID$(d$(i,su), 1,1)0"” THEN sort( i )=sort(i ) + < (ASC(MID4(d$( i, su), 1,1) )-31 
)*4569. 77) 

3140 IF MID$(d$(i,su),2,l)<>"" THEN sortd )=sort(i )* ( (ASC(MID4<d$( i , su) ,2,1) )-31 
m 175. 77) 

3150 IF MID4(d$(i,su),3,1)0"” THEN sort(i)=sort( i )*( (ASC(MID$(d$(i ,su) ,3,1) )-31 
)X6.77) 

3160 IF HID$(d$( i, su), 4, 1)0"" THEN sort(i)=sort(i ) + < (ASC(MID$(d$( i, su) ,4,1) )-31 
)»0.27) 

3170 IF HlD4(di(i,su),5,l)0"” THEN sort( i )=sort(i ) +( (AEC(HID$(d4(i , su) ,5,1) )-31 
)* 0 . 01 ) 

3160 NEXT 

3190 PRINT CHR4(7):PRINTt3, "Sortieren gestartet.” 

3200 IF von=l THEN 3340 

3210 ' - z-a 

3220 h=0 

3230 FOR i=l TO xx-1 STEP 2:1F sortd Xsortd+l) THEN 3240 ELSE 3270 
3240 FOR ur=l TO df :hi 1 fe$=d$( i ,ur) :d$ ( i ,ur)=d$d+l,ur) :d$d+l,ur)=hi I fe$ 

3250 NEXT ur 
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3260 sortl=sort(i):sort(i)=sort(i*l):sort(i*J)=sortl:h=l 
3270 NEXT i 

3280 FOR i=2 TO xx-1 STEP 2:IF sortd )<sort(J*l) THEN 3290 ELSE 3320 
3290 FOR ur=l TO dfthi1fe$=d$(i,ur):d$(i, ur)=d$(i*l, vr):d$(i*l, ur)=hiIfe$ 

3300 NEXT ur 

3310 sortl=sort(i):sort(i)-sort(i+1)!sort(i*l)=sortl:h=l 
3320 NEXT i 

3330 JF h=l THEN 3220 ELSE 3480 

3340 r- 

3350 h=0 

3360 FOR i=l TO xx-1 STEP 2:IF sort(i)>sort(i*1) THEN 3370 ELSE 3400 
3370 FOR ur=l TO dfihilfe$=dt(i,ur)id$(i,ur)-d$(i*l,ur):d$(i'H,ur)-hilte$ 

3380 NEXT ur 

3390 sortl=sort(1)isort(i)=sort(i-H )!sort(i*l)=sortlih-1 
3400 NEXT i 

3410 FOR 1=2 TO xx-1 STEP 2:1F <sort(i)>sort(i-H)) THEN 3420 ELSE 3450 
3420 FOR ur=l TO dfihlIfe$=d$(1,ur):d$(i, ur)=d$(1*1, ur):d$(1+1, ur)=hi1fe$ 

3430 NEXT ur 

3440 sortl=sort(1)ssort(l)=sort(1+1):sort(H-l)=sortl:h=l 

3450 NEXT 1 

3460 IF h=l THEN 3350 

3470 ' 

3480 PRINT CHR$(7)iPRINTD3:PRlNT«3, "Datei neu sortiert..." 

3490 FOR 1=1 TO 1000: NEXT'.GOTO 400 

3500 '- Input llne 

3510 LINE INPUT(I3, 1$ 

3520 IF 1$<>""AND VAL(1$)<32 THEN f=VAL(l$):fIag=l ELSE flag=0 
3530 1$=UPPER$(LEFTS(1$,1)) 

3540 RETURN 

3550 ' - ende 

3560 PRINTt3, "Wollen Sie die Datei abspeichern. ..>";tGOSUB 3500 
3570 IF 1$="J" THEN GOSUB 1070 

3580 PRINTt3, "Wollen Sie das Programm wirklich loeschen. GOSUB 3500 

3590 IF 1$="J" THEN CALL 64000 
3600 GOTO 400 

3610 ' - Systemmenüs 

3620 WIND0Wt4,2, 50, 6,16:CLS:CLS«4 
3630 WINDOW SWAP 4,3 

3640 LOCATE«3,1,6:PRINT43, " <l> Dlsk-Menue":PRINT43:PRINT»3, " <2> Grund-Menue" 

3650 PRINT*4, "Auswahl. .‘LINE INPUTII4,1$ ^ 

3660 1 $=LOWER$ (LEFTtd $,1)) 

3670 IF 1$="1" THEN CLS*3:G0T0 3700 
3660 IF 1$="2" THEN CLSIt3:G0T0 3770 
3690 GOTO 3650 

3700 L0CATEII3,1,5 :PRINTIf3," <1> Dlsk-Inhal t":PRINTIl3:PRINTt3, " <2> Umbenennen" 

:PRINT»3:PRINTD3, ” <3> Loeschen" 

3710 PRINT94, "Auswahl ...>"! :LINE 1NPUT§4,1$ 

3720 1 $=LOWER$ (LEFT$ d$,l)) 

3730 IF lt="l" THEN CLS*3:WIND0W SWAP 0,3:CAT:W1ND0W SWAP 0,3:PRlNTg4, "Bitte Tas 
te druecken...":CALL &BB06 

3740 IF 1$="2" THEN CLS*3:INPUTt4, "Welches Programm";o$:INPUTt4, "Neuer Name";n$: 
IREN, @n$, @o$ 

3750 IF 1$="3" THEN CLS43:INPUTH4, "Welches Programm":o$:tERA,So$ 

3760 WINDOW SWAP 4, 3:GOTO 400 

3770 L0CATE43,1,5:PRINT*3," Rahmenfarbe. :GOSUB 3500:IF flag=l THEN BOEDER f 
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3780 PRINTiS, " Hintergrungtarbe.. :GOSUB 3500:IF fIag-1 WEN INK 0,t 

3790 PRINTtS," Schreibfarbe. :GOSUB 3500:IF flag=l WEN INK l,f 

3800 PRINTi3, " Baud-Rate (0/1:GOSUB 3500:IF t-1 OR f=0 WEN SPEED URITE t 

3810 UINDOU SUAP 3, 4:GOTO 400 
3820 '- error 

3830 CLS§l:PRINTil:PRINT§l," Im Programm ist ein Fehler auf getreten.",,Zeile 
: "ERL 

3840 PRINTtl," Fehlernummer: "ERR 

3850 PRINTf3,"Programm abbrechen. ..>"!:GOSUB 3500 

3860 IF i$="J" THEN 3550 

3870 GOTO 400 

3880 ’ - ausdruck 

3890 L0CATE42,2, 7:PRINT§2, "Mode: Drucken " 

3900 CLStl:CLS 

3910 LOCATE 10,9:PRINT"<1> Druckmaske festlegen" 

3920 LOCATE 10,11:PRINT"<2> Drucken ohne Maske" 

3930 LOCATE 10,12:PRINT"<3> Drucken mit Maske" 

3940 LOCATE 10,14:PR1NT"<4> Zurueck ins Menue" 

3950 GOSUB 670 
3960 IF men=‘l THEN 4250 
3970 IF men=2 THEN 4010 
3980 IF men=3 THEN 4850 
3990 IF men=4 THEN 400 
4000 GOTO 3950 

4010 ' - drucken ohne maske 

4020 L0CATE42,2,7:PRINT«2, "Mode: Drucken o Maske " 

4030 CLS9i:CLS 

4040 LOCATE 10,10:PRINT”<1> Drucken einzelner Datensaetze" 

4050 LOCATE 10,11:PRINT"<2> Drucken aller Datensaetze" 

4060 LOCATE 10,13:PRINT"<3> Zurueck ins Menue" 

4070 GOSUB 670 
4080 IF men=l THEN 4120 
4090 IF men=2 THEN 4550 
4100 IF men=3 THEN 3880 
4110 GOTO 4070 

4120 - d o m einzeln 

4130 CLS:PRINTt3, "Welcher Datensatz soll gedruckt werden...>"}:LINE INPUT93,i$:i 
= VAL(i$):lF i>x OR i<l THEN 4130 
4140 GOSUB 4160 
4150 GOTO 4010 

4160 ' - ausdruck datensatz i 

4170 PRINT»3, "S fuer Stop. .. " 

4180 PRINT*8:PRINTg8, ”—> Datei :"name$:PRINTi8:PRINT(I8, " - > Datensatz: "i 

4190 FOR ia=l TO df 

4200 i$=INKEY$:lF i$="s" THEN 4010 

4210 PRINT»8,t$(ia)}": ";d$(i,ia) 

4220 NEXT 
4230 PRINT48 
4240 RETURN 

4250 ' - druckmaske 

4260 ERASE dz$ 

4270 CLS:CLS§l:L0CATEg2,2,7:PRINT»2,"Mode: Druckmaske " 

4280 PRINTtS, "Wieviele Druckzeilen soll ein Drucksatz haben...>"!:LINE INPUTi3,i 
$ 
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4290 dz=VAL(i$) 

4300 PRINTiS, "Wieviele Leerzeilen zwischen den Datensaetzen. ^ .>"{:LINE INPUTi3,i 

$ 

4310 ldz=VAL(i$) 

4320 DIM dz$(dz) 

4330 GOSUB 5050 

4340 PRINT43, "Steuerung>Cursor Fixieren>Copy Ausserhalb>kein Druck." 

4350 FÜR i=l TO dz 

4360 LOCATE l,iSPRINT STRING$(78,233)i:dz$(i)=STRING$(78, " ") 

4370 NEXT 

4380 FOR ia=l TO dfsdx(ia)=l:dy(ia)=12:dxa(ia)=dx(ia):dya(ia)=dy(ia):g$(ia)=LEFT 
$(t$(ia),l)*STRiNG$(1(ia)-l, ">")sNEXT 
4390 FOR ia-1 TO df 
4400 i$=INKEY$ 

4410 IF i$=CHR$(&F0) AND dy(ia)>l THEN dy(ia)=dy(ia)-l 
4420 IF i$=CHR$(&Fl) AND dy(ia)<12 THEN dy(ia)=dy(ia)+l 
4430 IF i$=CHR$(iF2) AND dx(ia)>l THEN dx(ia)=dx(ia)-l 
4440 IF it=CHRi(tiF3) AND dx(ia)<79 THEN dx(ia)=dx(ia)+l 
4450 IF i$=CHR$(&E0) THEN 4490 

4460 FOR aa=l TO dfsLOCATE dxa(aa), dya(aa)SPRINT STRING$(LEN(g$(aa))," "isLOCATE 
dx(aa),dy(aa)sPRINT g$(aa) sdxa(aa)=dx(aa)sdya(aa)-d 
y(aa)SNEXT 
4470 GOTO 4400 

4480 NEXT ia 

4490 IF dy(ia)>dz THEN dx(ia)=lsdy(ia)=12 

4500 IF ia=df THEN PRINTHO, "Alle Eingaben OK.. sGOSUB 3500SELSE 4530 

4510 IF i$="N" THEN GOTO 4250 ELSE GOSUB 5120sGOTO 3880 

4520 GOTO 4510 

4530 GOTO 4480 

4540 GOTO 3860 

4550 '- d o m alle 

4560 PR INTUS, "---> Datei s ”naiBe$ 

4570 PR INT «8 
4580 FOR i=l TO x 

4590 FOR ia=l TO dfslF d$(i,ia)<>"" THEN 4610 

4600 NEXT iasPRINTg8,"—-> Datensatz"! "nicht vorhanden! "sPRINT»8s GOTO 4630 
4610 PRINT§8, Datensatzs"! 

4620 GOSUB 4190 
4630 NEXT i 
4640 RETURN 

4650 '- druck m maske 

4660 L0CATE»2,2,7sPRINT«2,"Modes Drucken m Maske " 

4670 CLSilsCLS 

4680 LOCATE 10,10sPRINT"<l> Drucken einzelner Datensaetze" 

4690 LOCATE 10,11sPRINT"<2> Drucken aller Datensaetze" 

4700 LOCATE 10,13sPRlNT"<3> Zurueck ins Menue" 

4710 GOSUB 670 
4720 IF men=l THEN 4760 
4730 IF men=2 THEN 4940 
4740 IF men=3 THEN 3680 
4750 GOTO 4710 

4760 PRINTi3, "Welcher Datensatz soll gedruckt werden.sLINE INPUT*3,ii 
4770 i = VAL(i$) 

4780 GOSUB 4790SGOTO 4650 

4790 ' - ausdruck datensatz i 
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A800 PRINT«3, "S fuer Stop...” 

4810 FQR ai=l TO df 

4820 IF dy(ai)<>12 THEN MIDt(dz$(dy(ai)),dx(ai),l(ai))=d$(i,ai) 
4830 NEXT 

4840 FOR il=l TO dz 

4850 i$=INKEYS HF iS="s” THEN 4650 


4860 PRINTS8, ” ”}dz$(il) 

4870 NEXT 

4880 IF ldz>0 THEN 4890 ELSE 4920 
4890 FOR il=l TO Idz 
4900 PRINTS8 
4910 NEXT 

4920 FOR aa=l TO dz!dzS(aa)=STRINGS(78, ” ”):NEXT 


4930 RETURN 

4940 ' - d m m alle 

4950 PRINTS8 
4960 FOR i=l TO X 

4970 FOR ia=l TO dfHF d$(i,ia)<>”” THEN 4990 

4980 NEXT ia:GOTO 5000 

4990 GOSUB 4790 

5000 NEXT i 

5010 GOTO 4650 

5020 ' - break 

5030 ON BREAK GOSUB 5040 
5040 GOTO 400 

5050 ' - Window f druckaaske 

5060 UINDOW*0,1,80,1,25 

5070 LOCATE 1,2:PRINT CHRS(150)STRING$(78,154)CHR$(156) 

5080 FOR i=3 TO 14:LOCATE l,i:PRINT CHRS(149):LOCATE 80, i:PRINT CHRS(149):NEXT 
5090 LOCATE 1,15:PRINT CHRS(151)STR1NG$(78,154)CHRS(157) 

5100 UINDOW40,2, 79, 3,14: CLS 
5110 RETURN 

5120 ’ - window normal 

5130 U1NDOU«0,1,80,1,25 
5140 LOCATE 1,1 

5150 PRINT'* DATEI VERWALTUNGS-PROGRAMM -DATA-PRO- "CHRS(164)" 1985 

BY JENS KRIESE" 

5160 PRINT CHR$(150)STRINGS(49,154)CHRS(158)STRINGS(28,1S4)CHRS(156) 

5170 FOR i=3 TO 22:L0CATE l,i:PRlNT CHRS(149):LOCATE 51,i:PRINT CHRS(149):NEXT 
5180 FOR i=3 TO 16:LOCATE 60, i:PRINT CHRS(149):NEXT 
5190 LOCATE 51,15:PRINT CHRS(151)STRINGS(28,154)CHRS(157) 

5200 FOR i=17 TO 22:L0CATE 51,i:PRINT CHRS(149):LOCATE 80,i:PRINT CHRS(149):NEXT 


5210 LOCATE 1,23:PRINT CHRS( 151 )STRINGS(49,154)CHRS(155)STRINGS(28,154)CHRS(157) 
5220 LOCATE 1,24:PRINT CHRS(149):LOCATE 80,24:PRINT CHRS(149) 

5230 LOCATE 1,25:PRINT CHRS(147)STRINGS(78,154)CHRS(153)i 

5240 WINDOWS0,2,50, 3,22:WIND0U§1,52, 79,3,14:WIND0WS2,52, 79,16,22:WIND0US3,2, 79,2 
4,24 

5250 RETURN _ 
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Eine Text-Hardcopy 
für die Schneider-CPCs 


Mit diesem Maschinenprogramm 
können Sie auf dem Drucker 
NLQ401 von Schneider oder Broth- 
er M-1009 den Textbildschirm aus- 
drucken. Der Ausdruck erfolgt in 
NLQ-Briefqualität, und die Sonder¬ 
zeichen der ASCII-Codes 128 bis 
255 werden ebenfalls ausgegeben! 

Das Programm ist unverändert auf 
allen Schneider-Computern lauffä¬ 
hig, da keine allzu spezifischen Sy¬ 
stemadressen verwendet werden. 
Nach der Initialisierung der RSX-, 
Erweiterung verfügt das Schneider- 
Basic über einen neuen Befehl: 

IPRINTSCREEN 

Nach Eingabe dieses Befehls wird 
der gesamte Bildschirminhalt auf 
dem angeschlossenen Drucker aus¬ 
gegeben, Sofern nicht schon gesche¬ 
hen, schaltet das Programm den 
Drucker in NLQ-Briefqualität um. 


Die speziell angepaßten Schneider¬ 
und Brother-Drucker besitzen trotz 
des 7-Bit-Druckerausgangs eine 
Möglichkeit, die Sonderzeichen des 
Computers zu Papier zu bringen: 

PREnTT #8,CHR$(27);CHR$(61): 

Danach werden alle folgenden Zei¬ 
chen als mit gesetztem siebtem Bit 
interpretiert. Aus dem Zeichen 33 
wird also 33-1-128=161. Das ent¬ 
sprechende Grafikzeichen erscheint 
dann auf dem Papier. Zurückschal¬ 
ten in den normalen Druckmodus 
kann man iiiiL: 

PRINT#8,CHR$(0); 

Diese Besonderheit macht sich das 
Programm zunutze und stellt damit 
die Zeichen mit den ASCII-Codes 
von 32 bis 255 richtig auf dem Druk- 
ker dar. 

PRINTSCREEN funktioniert in allen 


drei Bildschirm-MODEs. Sie sollten 
lediglich sicherstellen, daß das 
WINDOW #0 sich über den ganzen 
Bildschirm erstreckt. Andernfalls 
kann es zu Verzerrungen beim Aus¬ 
druck kommen. 

Mit CHR$(24) invers dargestellten 
Zeichen sowie die ASCII-Zeichen 0 
bis 31 ersetzt PRINTSCREEN auto¬ 
matisch durch Leerzeichen, da sie 
auf dem Drucker nicht darstellbar 
sind. 

Erwähnenswert ist, daß PRINT¬ 
SCREEN den Zeilenabstand mit: 

PRINT#8,CHR$(27);CHR$(51); 

CHR$(25): 

herabsetzt, was bei Bedarf mit 

PRINT*8,CHR$(27);CHR$(51); 

CHR$(35); 

wieder korrigiert werden kann. 

Martin KotuUa/LM 


L. 1 s t 1 n g s Text-HARDCOPY 
100 ’ 

110 ' » « 

120 ' » PRINTSCREEN - Hardcopy » 

130 ' » » 

140 ' 

150 ' 

160 DEF FNmsb(a)=25S AND INT(a/256) 

170 DEF FNIsb(a)=255 AND UNT(a) 

180 MODE l:INK 0,13: INK 1,0: INK 2,0,3: INK 3,1 
190 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
200 LOCATE 1,1:PR INT STRINGS(40,210)( 

210 LOCATE 1,2 

220 PRINT CHRt(24)+SPACE$(14) + ”PRINTSCREEN'’*SPACE4(15)*CHR$(24) 
230 LOCATE 10,5:PRINT CHR$(164):” Martin Kotulla 1985" 

240 PR INT: PR INT STRING$(40,210) :PRINT 

250 PEN l:PRINT " Dieses Programm erweitert das Basic" 

260 PR INT:PRINT " um einen RSX-Befehl, mit dem der" 

270 PRINT:PRINT " Textbildschirm auf einem NLQ401- oder" 

260 PRINTtPRINT " M-1009-Drucker ausgegeben werden kann:" 

290 PEN 3:PRINT:PRINT STRINGS(40,210) -‘PRINT 
300 PEN 2:PRINT TAB(15);"IPRINTSCREEN" 
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310 FOR 1=40960 TO 41147:READ a:sua=sua+a:NEXT i 
320 IF sua=20589 THEN 350 

330 PRINT!PRINT CHR$(7}S" » Fehler in den DATAs!":PRINT 
340 LIST 440-1END 

350 RESTORE:MEMORY HIMEM-190:start=HIMEM+l 

360 FOR l=start TO start+iBBsREAD asPOKE i,a:NEXT i 

370 FOR 1=1 TO 22SREAD a:a=a+start 

380 value=PEEK(a)*PEEK(a+l)»256-40960+start 

390 POKE a,FNIsb(vaIue)iPOKE a-H,FNasb(value) 

400 NEXT i 

410 CALL start*32 ' RSX-Erweiterung Initialisieren 
420 PEN 1:END 

430 • Maschinencode-Daten ********************************************** 
440 DATA ti00, ti00, tt00, &0D, ti0A, &1B, &49, ti03, ilB, ii33, &19, &10, M0, iC3, &2A, tiA0 
450 DATA t,50, &52, gi49, A4E, A54, &53, A43, A52, A45, &45, ACE, A00, A00, A00, A00, A00 
460 DA TA A01,A0B,AA0, A21, AlC, AA0, ACD, ADl, ABC, AC9, ACD, A78, ABB, A22, A01, AA0 
470 DA TA A21, A01, A01,ACD, A75, ABB, A06,A08, A21, A03, AA0, A7E, ACD, AB5, AA0,A23 
480 DATA A10, AF9, A3E, A0D, ACD, ABB, AA0, A3E, A0A, ACD, ABB, AA0, A3E, AIB,ACD,ABB 
490 DA TA AA0,A3E, A49,ACD, ABB, AA0, A3E,A03,ACD, ABB, AA0, ACD, A69, ABB, A14, A7A 
500 DA TA A32, A00, AA0, ACD, A60, ABB, AFE, A20, A30, A04, A3E, A20, Al8, Al 4, AFE, A7F 
510 DATA A38,A10,AF5,A3E,AIB, ACD,ABB,AA0,A3E, A3D, ACD, ABB, AA0, AF1,ACD, ABB 
520 DATA AA0, A97, ACD, ABB, AA0, A3E, A09, ACD, ABA, ABB, A3A, A00, AA0, A57, AlE, A19 
530 DATA ACD, A78, ABB, A7A, A3C, ABC, A20,A0A,A3E, A0D, ACD,ABB,AA0,A3E,A0A,ACD 
540 DA TA ABB, AA0, AE5,AB 7, AED, A52, AEl, A20, ABA, A3E, A0C, ACD, ABB, AA0, A2A, A01 
550 DA TA AA0, ACD, A75, ABB, AC9, ACD, A2B,ABD,A30, AFB, AC9,A00 
560 ’ Relokatier-Daten ************************************************* 
570 DATA A0B, A0E, A21,A24, A2E, A39, A3D, A45, A4A, A4F, A54, A59, A61,A76 
580 DATA A7B,A7F,A83,A8B,A9B,AA0,AAC,AAF 

590 END ' ************************************************************** 
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Page 001 

00002 



j »tnnnnnnt»»»«»»*«»*«**««»»*»»»******«««*»«***»*»** 

00003 



f * 




00004 



! * PRINTSCREEN - fuer den NLCl-401/Brother M-1009 ^ 

00005 



; « 




00006 



1 

00007 







00008 

AOOO 

(AOOO) 


ORG 

&A000 


00009 



; Mit Basic-Loader verschiebbar 

00010 

00011 

AOOO 

(BB5A) 

TXTOUT 

EQU 

&BB5A 

TXT OUTPUT 

00012 

AOOO 

(BB60) 

RDCHAR 

EOU 

S(BB60 

TXT RD CHAR 

00013 

AOOO 

(BB6g) 

GETWIN 

EQU 

&BB69 

TXT GET WINDOW 

00014 

AOOO 

(BB75) 

CURSET 

EQU 

&BB75 

TXT SET CURSOR 

00015 

AOOO 

(BB78) 

CURGET 

EQU 

&BB78 

TXT GET CURSOR 

00016 

AOOO 

(BCDl) 

LOGEXT 

EQU 

S(BCD1 

KL LOG EXTERNAL 

00017 

AOOO 

(BD26) 

MCCHAR 

EQU 

&BD26 

MC PRINT CHAR 

00018 

AOOO 

(0001) 

.SCRMOD 

DEFS 

1 

Speicher Zeilenlaenge 

00019 

AOOl 

(0002) 

.CURHLD 

DEFS 

2 

Speicher Cursorposition 

00020 







00021 

A003 

OD OA IB 

49 .STRINl 

DEFB 

13,10,27,73,03 




; CR, LF, 

, NLQ- 

-an 



A007 

03 





00022 

A008 

IB 33 19 


DEFB 

27,51,25 

; Zellenabstand 25 Einh. 

00023 







00024 

AOOB 

10 AO 

.RSXTAB 

DEFW 

NAMTAB 

; Vektor auf Namenstabe11e 

00025 

AOOD 

C3 2A AO 


JP 

PRSCRN 

; Sprung nach PRINTSCREEN 

0Ö026 
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■ 


00027 

AOlO 

50 

52 

49 

4E 

.NAMTAB 

DEFM 

"PRINTSCREE" 








; RSX-Name PRINTSCREEN 




A014 

54 

53 

43 

52 







A016 

45 

45 








00028 

AOIA 

QE 





DEFB 

&CE 

; *'N"+&80, Wortende 


00029 

AOIB 

00 





DEFB 

&00 

; S(00 Tabellenende 


00030 











00031 

AOlC 

(0004) 


.SPACE 

DEFS 

&04 



00032 






; Hilfsspeicher zur RSX-Verwaltung 


00033 











00034 

A020 

01 

OB 

AO 


. INIT 

LD 

BC.RSXTAB 

; Zeiger auf RSX-Tabelle 


00035 

A023 

21 

IC 

AO 



LD 

HL,SPACE 

; Zeiger auf Hilfsspeicher 


00036 

A026 

CD 

Dl 

BC 



CALL 

LOGEXT 

t RSX einbinden 


00037 

A029 

C9 





RET 


; Ruecksprung nach Basic 


00038 











0Ö039 

A02A 

CD 

78 

BB 


.PRSCRN 

CALL 

CURGET 

; Cursorposition holen 


00040 

A02D 

22 

01 

AO 



LD 

(CURHLD),HL ; Und sichern 


00041 

A030 

21 

01 

01 



LD 

HL,&0101 

; Zeile=l & Spalte=l 


00042 

A033 

CD 

75 

BB 



CALL 

CURSET 

; Cursor setzen 


00043 











00044 

A036 

06 

08 



.LPINIl 

LD 

B,6 



00045 






; 8 Bytes zur 

Drucker-Initialisierung 


00046 

A038 

21 

03 

AO 



LD 

HL,STRINI 

; Zeiger auf Inlt-String 


00047 











00048 

A03B 

7E 




. INITLP 

LD 

A,(HL) 

; Ein Byte lesen 


00049 

A03C 

CD 

B5 

AO 



CALL 

PRINTER 

; Auf dem Drucker ausgeben 


00050 

A03F 

23 





INC 

HL 

; Zeig, auf naechstes Byte 


00051 

A040 

10 

F9 




DJNZ 

INITLP 



00052 






; Ueitermachen, bis alles uebertragen 


00053 











00054 

A042 

3E 

OD 



.LPINI2 

LD 

A,13 

; CR-Code 


00055 

A044 

CD 

B5 

AO 



CALL 

PRINTER 

; ausdrucken 


00056 

A047 

3E 

OA 




LD 

A,10‘ 

; LF-Code 


00057 

A049 

CD 

B5 

AO 



CALL 

PRINTER 

; ausdrucken 


00058 

A04C 

3E 

IB 




LD 

A,27 

: ESC-Code 


00059 

A04E 

CD 

B5 

AO 



CALL 

PRINTER 

; ausdrucken 


00060 

A051 

3E 

49 




LD 

A,73 

i l.Byte des NLQ-Codes 


00061 

A053 

CD 

B5 

AO 



CALL 

PRINTER 

) ausdrucken 


00062 

A056 

3E 

03 




LD 

A,3 

; 2.Byte des NLQ-Codes 


00063 

A058 

CD 

B5 

AO 



CALL 

PRINTER 

1 ausdrucken 


00064 











00065 

A05B 

CD 

69 

BB 



CALL 

GETWIN 

; Window-Daten holen 


00066 

A05E 

14 





INC 

D 

; D enthaelt Zellenlaenge 


00067 

A05F 

7A 





LD 

A,D 

; Wert in den Akku 


00066 

A060 

32 

00 

AO 



LD 

(SCRHOD),A 

i Und in SCRNOD speichern 


00069 











00070 

A063 

CD 

60 

BB 


.RDLOOP 

CALL 

RDCHAR 



00071 






; Ein Zeichen 

vom Bildschirm lesen 


00072 











00073 

A066 

FE 

20 



.LOU 

CP 

32 

; Kleiner als ASClI-32? 


00074 

A068 

30 

04 




JR 

NC,HIGH 

f Nein/Obergrenze pruefen 


00075 

A06A 

3E 

20 




LD 

A,32 

j durch Space ersetzen 


00076 

A06C 

16 

14 




JR 

OUTPUT 

1 Und Sprung zur Ausgabe 


00077 











00078 

A06E 

FE 

7F 



.HIGH 

CP 

127 

; Groesser als ASCI1-127? 


00079 

A070 

38 

10 




JR 

C,OUTPUT 

; Nein/Sprung zur Ausgabe 


00080 

A072 

F5 





PUSH 

AF 

; Zeichen sichern 


00061 

A073 

3E 

IB 




LD 

A,27 

; ESC 61 schaltet auf 


00062 

A075 

CD 

B5 

AO 



CALL 

PRINTER 

; alternativen 


00083 

A078 

3E 

3D 




LD 

A,61 

; Zeichensatz um 


00084 

A07A 

CD 

B5 

AO 



CALL 

PRINTER 
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A07D Fl 

A07E CD B5 AO 
A081 97 


00085 

00006 

00087 

00008 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 


Errorss 00000 Warningss 00000 


A098 

A09A 

A09D 

A09F 


A0A9 

AOAB 


POP AF 

; Zeichen im Akku wiederherstellen 

CALL PRINTER ; Und ebenfalls ausgeben 

SUB A 

; Mit CHR(O) zurueck zum Normzeichensatz 


CD B5 AO 

.OUTPUT CALL 

PRINTER 

; Buchstaben ausgeben 

3E 09 

LD 

A,9 



; ASCII-Code fuer CURSOR-RECHTS 

CD 5A BB 

CALL 

TXTOUT 



; An die Text-VDU schicken 


3A 00 AO 

LD 

A,(SCRMOD) 

; Zeilenlaenge in den Akku 

57 

LD 

D,A 

5 Ins D-Register 

lE 19 

LD 

E,25 

; Zeile 25 

CD 78 BB 

CALL 

CURGET 



5 TatsaechlIche Curserpositi 

on holen 

7A 

.LINCHK LD 

A,D 

5 Zeilenlaenge in den Akku 

3C 

INC 

A 



; Wert erhoehen (physikalisch -> logisch) 

BC 

CP 

H 



; Mit der aktuellen Spalte vergleichen 

20 OA 

JR 

NZ,SCRCHK 



: Wenn ungleich, weitermachen 

3E OD 

LD 

A,13 

; Sonst CR ausgeben 

CD B5 AO 

CALL 

PRINTER 


3E OA 

LD 

A,10 

; Und LF 

CD B5 AO 

CALL 

PRINTER 


E5 

.SCRCHK PUSH 

HL 

; Vergleicht DE mit HL 

B7 

OR 

A 


ED 52 

SBC 

HL, DE 


El 

POP 

HL 


20 BA 

JR 

NZ,RDLOOP 



; Wenn Bildschirmende nicht 

erreicht! 

3E OC 

,FFEED LD 

A, 12 

; Form-Feed-Code 

CD B5 AO 

CALL 

PRINTER 

; Wirft das Blatt aus 

2A 01 AO 

.RETURN LD 

HL,(CURHLD) 

; Alte Cursorpos. laden 

CD 75 BB 

CALL 

CURSET 

; Und Cursor setzen 

C9 

RET 


1 Ruecksprung nach Basic 

CD 2B BD 

.PRINTER CALL 

MCCHAR 

; Druckerausgabe versuchen 

30 FB 

JR 

NC,PRINTER 



; Solange versuchen, bis es 

klappt 

C9 

RET 



(AOBB) 

END 




SYMBOL TABLE: 

BB75 CURSET 
BB69 GETWIN 
BCDl LOGEXT 
A093 LiNCHK 
A02A PRSCRN 
A063 RDLOOP 
AOlC SPACE 


BB70 CURGET 
A06E HIGH 
A036 LPINIl 
BD2B NCCHAR 
A0B5 PRINTER 
AOAE RETURN 
A0A2 SCRCHK 


AOOl 

A020 

A042 

AOlO 

BB60 

AOOO 

BB5A 


CURHLD 

INIT 

LPINI2 

NAMTAB 

RDCHAR 

SCRMOD 

TXTOUT 


A0A9 FFEED 
A03B INITLP 
A066 LOU 
A082 OUTPUT 
AOOB RSXTAB 
A003 STRINI 
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Speichern Sie 
Zeichensätze ab! 


Mit dem folgenden Maschinenpro¬ 
gramm wird das Schneider-Basic 
um zwei RSX-Befehle erweitert, 
mit denen der verwendete Zei¬ 
chensatz auf Cassette oder Diskette 
gespeichert und später wieder ge¬ 
laden werden kann. 


Bei der Programmeingabe können 
Sie auswählen, ob Sie lieber den 
Quellcode des Programms eintip¬ 
pen und diesen dann assemblieren, 
oder gleich den Basic-Loader abtip¬ 
pen. Der Basic-Loader verschiebt 
das Maschinenprogramm im Spei¬ 
cher und legt es immer unter 
HIMEM ab. Somit können keine 
Adressierungsprobleme bei gleich¬ 
zeitiger Verwendung mehrerer 
Maschinenprogramme auftauchen. 
Der DATA-Loader erkennt auch 
automatisch den Computertyp 
(CPC-446, CPC-664 oder CPC-6128] 
und paßt das Maschinenprogramm 
an den verwendeten Computer 
an. 

Sobald die RSX-Erweiterung initia¬ 


lisiert ist, stehen Ihnen zwei neue 
Befehle zur Verfügung: 

CHARSAVE,§file$ 

CHARLOAD,§file$ 

Mit jCHARSAVE wird der gerade 
verwendete Zeichensatz abgespei¬ 
chert, mit ICHARLOAD ein Zei¬ 
chensatz von Diskette oder Cassette 
geladen. In file$ sollten Sie den zu¬ 
gehörigen Dateinamen angeben. 

Das Programm bestimmt dabei auto¬ 
matisch die Lage und Länge des 
RAM-Zeichensatzes, sofern nicht 
gerade iniL SYMBOL AFTER 256 
der gesamte Zeichensatz ins Be¬ 
triebssystem-ROM verlegt wurde. 
Da die Lage der Zeichenmatrizen im 
RAM-Speicher dynamisch vergeben 
wird, sich also nicht immer an der 
gleichen Adresse befindet - denken 
Sie an die Veränderungen beim An¬ 
schluß einer Diskettenstation! - legt 
CHARLOAD unabhängig vom Ort, 
wo der Zeichensatz gespeichert 
wurde, die Zeichentabellen beim 
Laden an die richtige Stelle. 


Das Programm verwendet übrigens 
einige Routinen im Basic-ROM, die 
bei allen drei Schneider-Computern 
an verschiedenen Stellen im Spei¬ 
cher stehen: 

GETMEM reserviert 2K-Speicher 
für Dateien: 

CPC-464: CALL &F637 
CPC-664: CALL &F72A 
CPC-6128: CALL &F72A 

RELMEM gibt diesen Speicher wie¬ 
der frei: 

CPC-464: CALL &F671 
CPC-664: CALL &F75D 
CPC-6128: CALL &F761 

BASERR gibt eine Fehlermeldung 
aus, deren Code im E-Register über¬ 
geben wird: 

CPC-464: CALL &CA94 
CPC-664: CALL &CB50 
CPC-6128: CALL &CB4D 

Martin Kotulla/LM 


L-Isting t CHAR-SAVE/-LOAD (Abspeichern und Einlesen von Zeichensaetzen) 

110 ^ M 

120 ^ n CH ARS AVE & CHARLOAD 

130 ^ # Jr 

150 ^ 

160 DEF FNmsb(a)=255 AND INT (a/256) 

170 DEF FNlsb(a)=255 AND UNT(a) 

180 SYMBOL 255, &66, &0, it76, &C, & 7C, &CC, ßt76, &0 
190 MODE l:JNK 0,13: INK 1,0: INK 2,0,3: INK 3,1 
200 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
210 LOCATE l,l:PRINT STRING$(40,210) I 
220 LOCATE 1,2 

230 PRINT CHR$(24)-^SPACE$(10)'^^CHARSAVE Ä CHARLOAD^^SPACE$( 11) ^CHR$(24) 

240 LOCATE 10,5:PRINT CHR$(164);” Martin Kotulla JÖÖS" 
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2S0 PRINT SPRINT STRING$(40,210)SPRINT 

260 PEN 1 SPRINT ” Dieses Programm liefert Ihnen zwei" 

270 PRlNTsPRINT " neue RSX-Befehle zum Speichern und" 

260 PRINTSPRINT " Laden kompletter Zelchens"*CHR$(2S5)+"tzes" 
290 PEN 2SPRINTSPRINT " ICHARSAVE, §FILE$ !CHARLOAD,@FILE$" 
300 PRINTsPEN 1 

310 FOR 1=39166 TO 39311sREAD aSsum=sum+asNEXT 1 
320 IF sum=17223 THEN 350 

330 PRINTSPRINT CHR$(7)!"* Fehler ln den DATAs!"SPRINT 


340 LIST 580-660SEND 

350 RESTOREsMEMORY HIMEM-150Sstart=HIMEM+l 

360 FOR l=start TO start+ieOFsREAD asPOKE l,asNEXT 1 

370 FOR 1=1 TO 7sREAD asa=a*Start 

380 value=PEEK(a)+PEEK(a+l)»256-39168+start 

390 POKE a,FNIsb(value)sPOKE a+1,FNmsb(value) 

400 NEXT 1 


410 CALL starULlD ' RSX Initialisieren 

420 CALL start+&3A ' Computerversion feststellen 

430 verslon=PEEK<&160) • Modifikationsbyte auslesen 

440 IF verslon=0 THEN END ' VERSION=0s CPC-464 

450 IF verslonOl THEN 500 ' VERSI0N=1 s CPC-664 

460 POKE Start+tt37,tt2AsPOKE start*&38,StF7 

470 POKE start+&76,ti5DsP0KE start+&77,&F7 

480 POKE start*&8D,&5DsP0KE start*&6E, iF7 

490 POKE start-H4A,ti50sPOKE start*A4B,iCBsEND 

500 IF verslon<>2 THEN 550 ' VERSI0N=2s CPC-6126 

510 POKE start+tt37,&2AsP0KE start-UBB, tiF7 

520 POKE start*&76,&61 sPOKE start+ti77,&F7 

530 POKE start*tt8D,ii6lsP0KE start+i8E, iF7 

540 POKE start+gi4A,&4DsP0KE start+&4B, &CBsEND 

550 PRINTSPRINT " Ich kann mit dieser Version des" 

560 PRINTSPRINT " Computers nichts anfangen!"sEND 

570 ' Maschinencode-Daten »»»««»**»**»*»**»»******»»»»»********»»**»**»» 
580 DA TA &06, i/99, &C3, &4C, i/99, i/C3, & 79, i/99, i/43, &48, i/41, &52, t/53, t/41, t/56, t/C5 
590 DA TA t/43, t/48, t/41, ti52, t/4C, t/4F, t/41, t/C4, t/00, t/00, t/00, t/00, t/00, t/01, t/00, t/99 
600 DA TA t/21, t/19, t/99, t/CD, t/Dl, t/BC, t/C9, t/CD, t/00, t/B9, t/DD, t/66, t/01, t/DD, t/6E, t/00 
610 DA TA t/46, t/23, t/5E, t/23, t/56, t/EB, t/CD, i/37, t/F6, t/C9, t/CD, t/00, t/B9, t/3A, t/02, t/C0 
620 DA TA t/32, t/60, t/01, i/C9, t/lE, t/05, t/CD, t/00, t/B9, t/C3, t/94, t/CA, t/FE, t/01, t/20, t/F4 
630 DA TA t/CD, t/27, t/99, t/CD, t/6C, t/BC, t/CD, t/AE, t/BB, t/5F, t/3E, t/FF, t/93, t/E5, t/6F, t/26 
640 DA TA t/00, t/29, t/29, t/29, t/11, t/08, t/00, t/19, t/EB, t/El, t/3E, t/2C, t/01, t/00, t/00, t/CD 
650 DA TA t/96, t/BC, t/CD, t/6F, t/BC, t/CD, t/71, t/F6, t/C9, t/FE, t/01, t/20, t/C7, t/CD, t/27, t/99 
660 DA TA t/CD, i/77, t/BC, t/CD, t/AE, t/BB, t/CD, t/63, t/BC, t/CD, t/7A, t/BC, t/CD, t/71,t/F6, t/C9 
670 ' Daten zum Relokalisieren des Maschinencodes Jf#«##*’#*#*#***#****^^** 


680 DATA t/00, t/03, t/06, t/lE, t/21, t/51, t/7E 
690 END ’ 


»»#*#*#************************* 


1000 ’ 
1010 ' 
1020 • 
1030 ’ 
1040 ’ 
1050 ' 
1060 • 


»*«»«***«»«**»**«*»«**«»********«***•******•********************* 

« * 

« 


» CHARSAVER - Zeichensaetze speichern und laden 

« 

ORG &9900 i Mit dem Loader verschiebbar! 
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1070 

t 





1080 

r 

OPEN IN 

EQU 

«<BC77 ; 

CAS IN OPEN 

1090 

f 

CLOS IN 

EQU 

&BC7A ; 

CAS IN CLOSE 

1100 

t 

BLKIN 

EQU 

&BC63 ; 

CAS IN DIRECT 

1110 

f 





1120 

t 

OPNOUT 

EQU 

&BC8C ; 

CAS OUT OPEN 

1130 

1 

CLSOUT 

EQU 

&BC8F : 

CAS OUT CLOSE 

1140 

f 

BLKOUT 

EQU 

&BC98 ; 

CAS OUT DIRECT 

1150 

t 





1160 

f 

URONON 

EQU 

&B900 ; 

KL U ROM ENABLE 

1170 

t 

GETMAT 

EQU 

&BBAE t 

TXT GET MATRIX TABLE 

1100 

t 

LOGEXT 

EQU 

&BCD1 : 

KL LOG EXTERNAL 

1190 

f 

GETMEM 

EQU 

&F637 J 

CAS-Puffer anlegen, 664s 8(F72A 

1200 

f 

RELMEM 

EQU 

fcF671 5 

CAS-Puffer freigeben, 664s &F75D 

1210 

1 

BASERR 

EQU 

&CA94 : 

Fehlermeldung ausgeben 

1220 

1 





1230 

f 

; RSXen initialisieren ####»* 

1240 

? 





1250 

f 

RSXTAB 

DEFU 

NAMTAB ; 

Vektor auf Namenstabelle 

1260 

t 


JP 

CHSAVE : 

Sprung nach CHARSAVE 

1270 

f 


JP 

CHLOAD ; 

Sprung nach CHARLOAD 

1260 

1 





1290 

t 

NAMTAB 

DEFM 

"CHARSAV" ; 

RSX-Befehl "CHARSAVE" 

1300 

t 


DEFB 

&C5 ; 

Uortende durch gesetztes 7.Bit 

1310 

t 


DEFM 

"CHARLOA" ; 

RSX-Befehl "CHARLOAD" 

1320 

f 


DEFB 

&C4 i 

Uortende durch gesetztes 7.Bit 

1330 

1 


DEFB 

&00 ; 

Nullbyte als Tabellenende 

1340 

t 





1350 

f 

SPACE 

DEFS 

&04 : 

4 Bytes zur Verkettung der RSXen 

1360 

r 





1370 

f 

INIT 

LD 

BC,RSXTAB ; 

Zeiger auf RSX-Sprungtabe1le 

1380 

t 


LD 

HL,SPACE ; 

Zeiger auf Hilfsspeicher ’ 

1390 

f 


CALL 

LOGEXT ; 

RSXen ins Betriebssystem einbinden 

1400 



RET 

f 

Ruecksprung nach Basic 

1410 

f 





1420 

t 


1430 

» 





1440 


SUBINI 

CALL 

UROMON ; 

KL U ROM ENABLE 

1450 

t 





1460 

t 


LD 

H,(IX+1) } 

Highbyte des String Descriptors holen 

1470 

1 


LD 

L,(IX+0) : 

Lowbyte des String Descriptors holen 

1480 

» 


LD 

B,(HL) ; 

Stringlaenge ins B-Register 

1490 

1 


INC 

HL ; 

Descriptor-Zeiger erhoehen 

1500 

» 


LD 

E,(HL) ; 

Lowbyte der Stringadresse lesen 

1510 

f 


INC 

HL ; 

Descriptor-Zeiger erhoehen 

1520 

t 


LD 

D,(HL) J 

Highbyte der Stringadresse lesen 

1530 

f 


EX 

DE, HL 


1540 

ff 





1550 

ff 


CALL 

GETMEM ; 

I/0-Buffer reservieren lassen 

1560 

ff 


RET 

5 

Ruecksprung zum Hauptprogramm 

1570 

ff 





1500 

ff 

; 

VERSION 

1590 

* 





1600 

ff 

VSN 

CALL 

UROMON ; 

Basic-ROM einschalten 

1610 

ff 


LD 

A-, (&C002) ; 

Modifikationsbyte im ROM-Header lesen 
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1620 ' 

LD 

(&0160),A 

1630 ’ 

RET 


1640 * 



1650 ' 

; ««««« ERROR: Fehler 

1660 ’ 



1670 ' 

ERROR LD 

E,5 

1680 ’ 

CALL 

UROMON 

1690 ’ 

JP 

BASERR 

1700 ’ 



1710 ' 

; CHARSAVE «»»* 

1720 ’ 



1730 ’ 

CHSAVE CP 

1 

1740 ' 

JR 

NZ,ERROR 

1750 ’ 



1760 ’ 

CALL 

SUBINI 

1770 • 

CALL 

OPNOUT 

1760 * 



1790 ’ 

SVMATR CALL 

GETMAT 

1800 ’ 

LD 

E,A 

1810 ' 

LD 

A,255 

1820 ' 

SUB 

E 

1830 ’ 

PUSH 

HL 

1840 ’ 

LD 

L,A 

1850 ' 

LD 

H,0 

1860 ’ 

ADD 

HL, HL 

1870 ’ 

ADD 

HL, HL 

1880 ' 

ADD 

HL, HL 

1890 * 

LD 

DE, 8 

1900 ' 

ADD 

HL, DE 

1910 * 

EX 

DE, HL 

1920 ’ 

POP 

HL 

1930 ' 



1940 * 

SVCHAR LD 

A,«<2C 

1950 ’ 

LD 

BC,0 

1960 ' 

CALL 

BLKOUT 

1970 ’ 



1980 ’ 

SVCLOS CALL 

CLSOUT 

1990 ’ 

CALL 

RELMEM 

2000 ' 

RET 


2010 ’ 



2020 ’ 

; *«»«* CHARLOAD 

2030 • 



2040 ’ 

CHLOAD CP 

1 

2050 ' 

JR 

NZ,ERROR 

2060 ’ 



2070 ’ 

CALL 

SUBINI 

2080 ’ 

CALL 

OPEN IN 

2090 ’ 

CALL 

GETMAT 

2100 ’ 

CALL 

BLKIN 

2110 ’ 

CALL 

, CLOSIN 

2120 ' 

CALL 

RELMEM 

2130 ’ 

RET 


2140 ' 

END 


2150 ’ 



2160 ' 



In den Basic-lesbaren Speicher laden 
Ruecksprung nach Basic 


; Fehlercode 5 = IMPROPER ARGUMENT 
{ Basic-ROM einschalten 
t ROM-Routine zur Fehlerausgabe 


Es muss genau 1 Parameter da sein! 
Sonst Fehlerausgabe 

holt Dateinamen, reserviert Speicher 
Datei oeffnen 

Start der Zeichenmatrizen holen 

CP vorbereiten 

SUB vorbereiten 

Akku=255-erstes Zeichen 

Matrix-Zeiger sichern 

Akku ins L-Register 

Statt LD HL,A 

HL=HL*2 

HL=HL«2 

HL=HL«2 

ADD vorbereiten 

Auch den letzte Matrixeintrag! 

Matrixlaenge ins DE-Register 
HL wiederherstellen 

Dateiart fuer Kopfsatz 
Einsprungadresse 0 
CAS OUT DIRECT 


; Datei schliessen 
i Pufferspeicher wieder freigeben 
i Ruecksprung nach Basic 


; Genau 1 Parameter zu uebernehmen! 
; Sonst Fehlermeldung 


Dateinamen-Zeiger, Puffer reservieren 
Datei zum Einlesen oeffnen 
Adresse der Zeichenmatrix holen 
CAS IN DIRECT 
Eingabedatei schliessen 
Speicher wieder freigeben 
Ruecksprung nach Basic 


Computer 

Schau 


71 





Anwendungen 


Dateien verschlüsselt 


Dieses Programm für die Schnei¬ 
der-Computer zeigt Ihnen, wie sich 
Daten und Dateien verschlüsseln 
lassen. 


Zur Programmbedienung: Nach 
dem Start von CODEC [Codierer-De- 
codierer) werden Sie nach den Na¬ 
men der Ein- und Ausgabedatei ge¬ 
fragt. Die Benutzung eines Disket¬ 
tenlaufwerkes ist hier empfohlen, 
da Sie bei Kassettenbetrieb dauernd 
die Kassette mit der Einlesedatei 
und die Kassette mit der Ausgabe¬ 
datei wechseln müßten. Die Einga¬ 
be-Datei muß im ASCII-Format vor¬ 
liegen. 

Außerdem wird von Ihnen der Co¬ 
deschlüssel benötigt, mit dem die 
Dateien codiert und decodiert wer¬ 


den sollen. Aufgrund des verwen¬ 
deten Algorithmus dürfen im Code 
keine CHR$(0] auftauchen. Dieses 
bereitet aber keine Probleme, da das 
Zeichen sowieso nicht von der Ta¬ 
statur aus eingegeben werden kann. 
Der Codeschlüssel kann beliebig 
lang sein. Sie sollten aber daran 
denken, daß Sie sich ihn merken 
müssen! Das Programm unterschei¬ 
det übrigens nicht zwischen Klein- 
und Großbuchstaben. 

Weiter werden Sie gefragt, ob Sie 

(1] Codieren oder 

(2) Decodieren 

wollen. 

Sofort nimmt das Programm seine 
Arbeit auf und meldet sich kurz da¬ 
nach mit READY wieder zurück. 


Programmfunlilion 

Die Codierung erfolgt nach der 
XOR-Methode. Das heißt, daß alle 
Strings zeichenweise mit dem Co¬ 
deschlüssel logisch exklusiv ge- 
ODERt werden. Dies hat den Vor¬ 
teil, daß beim Codieren und Deco¬ 
dieren der gleiche Schlüssel ver¬ 
wendet werden kann. Ein einfaches 
Basic-Beispiel dafür: 

PRINT 89 XOR 3: 90 

PRINT 90 XOR 3: 89 

„3“ ist hier der Codierschlüssel, 
„89“ die zu codierende Zahl. 

Nun taucht aber aufgrund der Pro¬ 
grammierung des Schneider-Be¬ 
triebssystems das Problem auf, daß 
der ASCII-WerL 26 keinesfalls in ei¬ 
ner Datei enthalten sein darf. Er 
würde als EOF-(End-of-File-]Krite- 
rium fehlinterpretiert und das La¬ 
den abgebrochen, obwohl die Datei 
noch längst nicht zu Ende ist. 

In normalen Dateien taucht 
CHR$(26) fast nie auf, sehr wohl 
aber u. U. in einer codierten Datei. 
CODEC verwendet einen einfachen 
Trick: es setzt einfach bei allen Zei¬ 
chen das 7. Bit, so daß aus dem 
Zeichen 26 das Zeichen 
26+128=154 wird. Die Einschrän¬ 
kung besteht nun für Sie darin, daß 
Sie nur den 7-Bit-ASCII-Zeichen- 
satz verwenden dürfen. Eine wirkli¬ 
che Beschränkung der Möglichkei¬ 
ten ist das aber nicht: Von 0 bis 127 
stehen alle genormten Zeichen, von 
128 bis 255 die Sonderzeichen, die 
z. B. bei Textverarbeitungs-Dateien 
kaum verwendet werden. 

M. Kotulla/LM 




DATEI-COPlERER A DECQPTBRFW 


Martin Kotulla 1985 


Mit diesen Progrann können Sie Dateien 
r nach einen beliebigen Schlüssel 
Ä. codieren und wieder decodieren. 









L-isting : CODEC (Programm zum Ver- und Entsch 1 uesse 1 n von Dateien) 

Ij0f0 ' 

110 ' K 

120 ' # DATEI-CODIEHER & DECODIERER # 

130 ' M 
140 * 
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150 ' 

160 MODE HINK 0,13:INK 1,0: INK 2,0,3: INK 3,1 
170 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
180 SYMBOL AFTER 250 

190 SYMBOL 254,&66,&0,St66,&66,&66,&66,gt3E,&0 
200 SYMBOL 255, ti66, tt0, t,3C, &66, &66, ti66, &3C, &0 
210 LOCATE l,l:PRINT STRING$(40,210) ( 

220 LOCATE 1,2 

230 PRINT CHR$(24) + ” DATEI-CODIERER tt DECODIERER "*CHR$<24) 

240 LOCATE 10,5:PRINT CHR$(164);” Martin Kotulla 1965” 

250 PRiNT:PRINT STRING$(40,210):PRINT 

260 PEN l:PRINT " Mit diesem Programm k”+CHR$(255)*"nnen Sie Dateien” 

270 PRINT:PRINT ” nach einem beliebigen Schl”+CHR$(254)+”sseI” 

260 PRINT:PRINT ” codieren und wieder decodieren.” 

290 PEN 3:PRINT:PRINT STRING$(40,210):PRINT:PEN 1 
300 LOCATE 1,20:PEN 2 

310 UHILE INKEY$<>””:VEND ' Tastaturpuffer loeschen 
320 PRINT ” Bitte dr”+CHR$(2S4)+”cken Sie eine Taste!” 

330 UHILE INKEY$=””:WEND ' Auf Tastendruck warten 
340 MODE 1:PEN 3 

350 PRINT:PRINT ” Bitte geben Sie den Code-Schi ”*CHR$(254)+"sseI an!” 

360 PEN l:PRINT:PRINT STRING$(40,210):PRINT 
370 PEN 3:PRINT ” ”‘,:LINE INPUT code$ 

380 PEN l:PRINT:PRINT STRING$(40,210):PRINT:PEN 3 

390 PRINT ” Name der Eingabedatei:”:PEN 1:PRINT:LINE INPUT ” ”,infilei 

400 PEN 3:PRINT:PRINT ” Name der Ausgabedatei:”:PEN 1 

410 PEN l:PRINT:LINE INPUT ” ”,outfiIet 

420 OPENIN Infilet 

430 OPENOUT outfilet 

440 PEN l:PRINT:PRINT STRINGt(40, 210):PEN 3 
450 codet=UPPER$(codet) 

460 IF LEN(codiert)>254 THEN 480 

470 codiert=codiert+MIDt(codet, l,255-LEN(codiert)):GOTO 460 
480 PRINT ” [IJ Codieren” 

490 PRINT:PRINT ” (2) Decodieren” 

500 cd$=UPPERt(INKEYt):IF cdt=”” THEN 500 
510 IF cdt=”l” THEN 550 
520 IF cdt=”2” THEN 650 
530 PRINT CHRt(7)!:GOTO 500 

540 ' CODIERUNG *************************************************** 

550 UHILE NOT EOF 

560 bt=””:LINE INPUT 49, at 

570 FOR i=l TO LEN(at) 

580 bt=bt+CHRt((ASC(MIDt(at, i)) XOR ASC(HIDt(codiert, i))) OR 128) 

590 NEXT i 

600 PRINT 49, bt 
610 UEND 

620 CLOSEIN:CLOSEOUT:CLEAR 
630 MODE 1:PEN 1:END 

640 ' DECODIERUNG »»»****##J(**#»**»J******************************************** 

650 UHILE NOT EOF 

660 bt=””:LINE INPUT 49, at 

670 FOR i=l TO LEN(at) 

660 bt=bt+CHRt((ASC(MIDt(at, i)) XOR ASC(MIDt(codiert, i))) AND 127) 

690 NEXT i 

700 PRINT 49, bt 
710 UEND 

720 CLOSEIN:CLOSEOUT:CLEAR 
730 MODE 1:PEN 1:END 

740 ' »*jf»jf/f*»«#j(Ä*j(#»#«*/(#Ä#*«##*#A***************************** *************** 
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Rund um den Kalender - 

auf dem 

Schneider (PC 464 


Wollen Sie wissen, an welchem 
Wochentag Sie geboren sind oder 
Ihre Freunde Geburtstag feiern, 
brauchen Sie eine Planungshilfe 
für den Urlaub oder zur Gehaltsab¬ 
rechnung? Dieses Progranun für 
den Schneider CPC berechnet ein¬ 
zelne Wochentage für Sie und 
druckt auf Wunsch einen Kalender 
für jedes beliebige Jahr seit der 
Kalenderreform von Papst Gregor 
Xin aus - wahlweise auf dem Bild¬ 
schirm oder einem beliebigen an¬ 
geschlossenen Drucker. 

Pragrammbedienung 

Nach dem Programmstart erscheint 
ein kurzes Menü mit drei Unter¬ 
punkten: 

- Wochentag berechnen 

- Kalender ausdrucken 

- Programm beenden 

Mit den Cursor-Up- und Cursor- 
Do wn-Tasten können Sie einen der 
drei Menüpunkte anwählen, worauf 
dieser invertiert angezeigt wird. So¬ 
bald Sie die COPY-Taste betätigen, 
wird dieses Unterprogramm aufge¬ 
rufen. 

Wochentag berechnen 

Hier können Sie einen bestimmten 
Tag eingeben, worauf der Computer 
den zugehörigen Wochentag aus¬ 
rechnet. Es sind folgende Eingaben 
nötig: 

Tag im Monat? 30 
Welcher Monat? 6 
Welches Jahr? 1985 


Nach kurzer Zeit meldet sich der 
Computer wieder: 

Der 30. 6. 1985 war ein Sonntag. 

Statt der Nummer des Monats kön¬ 
nen Sie auch den Monatsnamen an¬ 
geben. Dabei wird nicht zwischen 
Klein- und Großschreibung unter¬ 
schieden, und nur die ersten drei 
Buchstaben sind signifikant. Alle 
folgenden Namen werden z. B. als 
Januar interpretiert: 

Januar, JANUAR, januar, JAN, jAn, 
JaN, JANaaa, jAN*** 

Die Jahreseingabe kann vierstellig 
erfolgen, z. B. „1985“ oder auch in 
der verkürzten Form „85“. 


Kalender ausdracken 

Mit diesem Programmteil können 
Sie einen vollständigen Kalender 
für ein beliebiges Jahr ausdrucken 
lassen, was z. B. für Unternehmer 
bei der Buchführung recht nützlich 
ist. 

Wahlweise erfolgt die Ausgabe auf 
dem Bildschirm oder auf einem 
Drucker. Der Druckertyp ist hierbei 
egal, da keinerlei spezifische Steu¬ 
erzeichen verwendet werden. 

Der Dialog mit dem Computer kann 
z. B. so aussehen: 

Für welches Jahr? 83 
Druckerausgabe? j 

Auch hier kann die Jahreszahl wie¬ 
der auf zwei Stellen verkürzt wer¬ 
den. Bei der Frage nach dem Ausga- 



Hieir kÖim*n Si* ein Datun einseben 
und den Conputer den zusebörisen 
Hoohentas berechnen lassen. ^ 



74 


Comp uter 

Schau 




















Anwendungen 



begerät sind die Buchstaben „jJnN“ 
gestattet. 

Ein Kalenderausdruck für 1985 be¬ 
ginnt z. B. so: 

Januar: 

So-Mo-Di-Mi-Do-Fr-Sa 
01 02 03 04 05 
06 07 08 09 10 11 12 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 30 31 

Selbstverständlich werden bei allen 
Datumsberechnungen eventuelle 
Schaltjahre berücksichtigt - genaue¬ 
res dazu finden Sie unter dem 
Punkt „Programmaufbau“. 

Pragramm beenden 

Dazu gibt es nicht allzuviel zu sa¬ 
gen: Nach einer Sicherheitsabfrage 
wird das Programm gestoppt. 

Programmaufbau 

Das Programm ist modular geglie¬ 
dert, so daß das Listing recht über¬ 


sichtlich ist. Ab der Zeile 1280 be¬ 
ginnt das wichtigste Unterpro¬ 
gramm, denn hier wird aus den drei 
Variablen day, month und yeur der 
Wochentag berechnet und im String 
dayname$ dem aufrufenden Pro¬ 


gramm zurückgegeben. Allerdings 
muß nach dem Aufruf des Pro¬ 
gramms die Variable eriflag geprüft 
werden, denn ein Wert ungleich 
Null zeigt an, daß die Eingangsda¬ 
ten nicht korrekt waren. 


Der genaue Programmaufbau: 

1340 Korrektur der Jahreszahl: Aus 85 wird 1985 

1350 Prüfung, ob das Jahr vor Beginn des gregorianischen Kalenders liegt. 

1360 Prüfung auf unsinnige hohe Jahreszahlen (>4000!) 

1370 Prüfung, ob der Monatswert gültig ist. 

1380 Prüfung, ob der Tageswert gültig ist. 

1400 Alle vier Jahre ist ein Schaltjahr. 

1410 Aber nicht, wenn es ein Jahrhundert ist und nicht durch 400 teilbar. 

1420 Prüfung auf den 27. Februar in einem Nicht-Schaltjahr. 

1430 Prüfung auf den 28 . Februar Ln einem Schaltjahr, ,. t i_ 4: 

1450 Berechnung aller vergangenen Tage seit Christi Geburt bis Jahresanfang 
1460 Hier werden die vergangenen Tage seit Jahresanfang addiert. 

1470 Korrektur bei Schaltjahren um einen Tag. 

1480 Die vergangenen Tage werden in eine Zahl von 0 bis 6 umgesetzt. 

1490 Der Wert wird als Index des Stringfelds weekday$(j verwendet. 

Vorher findet in den Zeilen 210 bis 270 die Variablendefinition statt: 

- monlh$(J enthält alle Monatsnamen eines Jahres (Januar, Februar...). 
-days.in.monlh() speichert die Zahl der Tage für jeden Monat. 

- total.days() enthält für jeden Monat die Zahl der Tage seit Jahresamang. 

- weekdoySO beinhaltet die Strings der Wochentage, also Montag, Dienstag ... 

Die übergeordneten Teilprogramrae verwenden diese Routine und steuern 

den Dialog mit dem Benutzer. Das Programm kann auf folgende Art um weitere 
Menüpunkte erweitert werden; 

- Nach Zeile 420 Einsetzen des neuen Punktes ab ch$f4). 

Alle Strings müssen mit Leerzeichen auf 40 Buchstaben aufgefullt werden. 

- Ändern Sie in Zeile 350 die Variable num: sie enthält die Zahl der Menupunkte. 

- Erweitern Sie die ON-GOTO-Befehlszeile in Zeile 580. 


So könnten Sie das Programm z. B. zur Berechnung der beweglichen Festtage erweitern. 
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Llsting t Kalender 


100 ' *innnnnnnnnnnnnnnnnfifinnnnminnnf 

110 ' 

120 ' n * 

130 * * RUND UH DEN KALENDER » 

140 ' Jf jf 

150 ' 

160 ' »*x*»x**»)t)nniinnm»»innm 

170 ' 

180 ' (C) Martin KotuJla 16.6.1985 

190 ' _ 

200 ' 

210 DIM month$(12), days. in. month(12), total. days(12), weekday$(7):one.year=365 
220 ' MONATE UND ZUGEHOERIGE TAGE EINLESEN x»xxxx»xnx»xxxx»xx»»x»xxx»x»»x»xxx»x 
230 FOR i=l TO 12:READ montht(i),days.in.month(i) 

240 total.days(i)=total. days(i-1)+days.in.month(i-1) 

250 total.days(1-1)=tota].days(i-1)+l:NEXT i 

'260 total. days(12) = tota].days(12)+l 

270 FOR i=0 TO 6:READ weekday$(i)iNEXT i 

280 MODE l'.INK 0,1: INK 1,24: INK 2,24,1: INK 3,21 

290 PAPER 0:BORDER 2:SPEED INK 25,25 

300 SYMBOL AFTER 252 

310 SYMBOL 252,St6C,&0,&78,&C,gi7C,&CC,&76,&0 

320 SYMBOL 253, &0, &0, &0, &0, i0, &0, g,0, &FF 

330 SYMBOL 254, &66, &0, &3C, &66, &66, &66, &3C, &0 

340 SYMBOL 255, &66, i0, &66, &66, &66, &66, &3E, &0 

350 nuni=3:row=10:col =10:cholce=l 

360 PEN 3:L0CATE 1,1 .‘PRINT STRING$(40,210) ; 

370 LOCATE 1,2:PRINT CHR$(24)!SPACE$(10) ;"RUND UM DEN KALENDER"! 

380 PRINT SPACE$(10);CHR$(24) 

390 LOCATE 10,6:PRINT CHR$(164);" Martin Kotulla 1985" 

400 ch$(l)=" WOCHENTAG BERECHNEN"+SPACE$(19) 

410 ch$(2)=" KALENDER AUSDRUCKEN"*SPACE$(19) 

420 ch$(3)=" PROGRAMM BEENDEN"+SPACE$(22) 

430 PEN l:LOCATE l,row:FOR i=l TO num:PRINT ch$(i):NEXT i 

440 PEN 3:L0CATE 3,20:PRINT "Bitte w"+CHR$(252)+"hIen Sie mit "; 

450 PRINT CHR$(1);CHR$(10);CHR$(1)!CHR$(11);" und COPYI" 

460 PEN 1 .‘LOCATE 1, choice*2+row-3 

470 PRINT STRING$(40,253);CHR$(24);ch$(choice);CHR$(24) 

460 a$=INKEY$ 

490 IF a$=CHR$(224) THEN 560 ' Copy gedrueckt 

500 IF a$="" OR (a$<>CHR$(&F0) AND a$<>CHR$(&Fl)) THEN 480 

510 LOCATE l,choicex2+rov-3:PRINT SPACE$(40)lch$(choice) 

520 IF a$=CHR$(&F0) THEN choice=choice-l ELSE choice=choice*l 
530 IF choice<l THEN choice=num 
540 IF choice>num THEN choice=l 
550 SOUND 1,1000,10 

560 LOCATE 1, choicex2+rou-3:PRINT STRING$(40,253); 

570 PRINT CHR$(24);ch$(choice);CHR$(24):GOTO 480 

580 ON choice GOTO 600,870,1190 ' In Unterprogramm springen 

590 ' 1- Wochentag berechnen xxxxxxxxxxxxxx»»xxxx»xxx»xxxxxx»»»x»»x»xxx«x»»»»»x 
600 PEN l:MODE 1:PRINT STRING$(40,253);:PRINT CHR$(24);ch$(l);CHR$(24):PRINT 
610 LOCATE 1,4 
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620 PEN 3:PRINT " Hier k’'+CHR$(254)+ "nnen Sie ein Datum eingeben" 

630 PRINT:PR1NT " und den Computer den zugeh"+CHR$(254)+"rigen" 

640 PRlNTtPRINT " Uochentag berechnen lassen. ":PRINT 
650 PEN 1‘.PRINT STRING$ (40,253) 

660 PRINT.-LINE INPUT " Tag im Monat? ", day$:day=VAL(day$) 

670 PRINTtLINE INPUT " Uelcher Monat? ",month$:month=VAL(month$) 

680 PRINTÜINE INPUT " Welches Jahr? ",year$:year=VAL(year$) 

690 PR INT‘.PRINT 

700 IF month<>0 THEN 760 ' Pruefen ob Monatseingabe z.B. "1" oder "Januar" 

710 FOR i=l TO 12 

720 IF LEFT$(UPPER$(monih$),3)=LEFT$(UPPER$(month$(i)),3) THEN 750 
730 NEXT i ' Nicht gefunden: 

740 PRINT CHR$(7);:GOTO 610 
750 mohth$=MID$(STR$(i) ,2):month=i 
760 GOSUB 1340 ' Tag berechnen 
770 year$=MID$(STR$ (year), 2) 

760 month$=MID$(STR$(month),2) 

790 day$=HID$(STR$(day),2) 

600 IF errflag=l THEN PRINT CHRi(7);" * Fehler in der Eingabe!":GOTO 610 
810 PRINT " Der "*day$+"."+month$+"."+year$+" war ein "*dayname$*". " 

620 UHILE INKEY$<>"":UEND ' Tastaturpuffer loeschen 
630 LOCATE 1,23:PRINT STRING$(40,253)lCHR$(24)i 

840 PRINT " Bitte dr"+CHRt(255)+"cken Sie eine Taste!"+SPACE$(10)+CHR$(24); 

850 UHILE INKEY$="":UEND:MODE l:GOTO 360 

860 ' 2- Kalender ausdrucken »»»»**»*»*****:(*»»**********:<***::***************** 
870 PEN l:MODE UPRINT STRING$(40, 253)!tPRINT CHR$(24)!ch$(2);CHR$(24)tPRlNT 
880 LOCATE 1,4 

890 PEN 3:PRINT " Hiermit k"+CHR$(254)*"nnen Sie wahlweise auf" 

900 PRINT:PRINT " dem Bildschirm oder Drucker den" 

910 PRlNTtPRINT " Kalender eines Jahres ausgeben. " 

920 PEN l:PRINT:PRINT STRING$(40,253):PRINT 
930 PRINT " F"+CHR$(255)+"r welches Jahr? "! 

940 LINE INPUT year$:year=VAL(year$):IF year<100 THEN year=year+1900 

950 PRINTtPRINT " Druckerausgabe? ";:PEN 2:PR1NT CHR$(143)‘-PEN 1 

960 in$=UPPER$(INKEY$):IF in$="" THEN 960 

970 IF in$="J" THEN dv=6:G0T0 1010 

980 IF in$="N" THEN dv=0:GOTO 1000 

990 PRINT CHR$(7)I:GOTO 960 

1000 MODE l:UINDOU 10, 34, 2,24:INK 1,0:INK 0,10:BOEDER 1 

1010 FOR month=l TO 12:PRINT «dv:PRINT Hdv," ":month$(month)‘-PRINT *dv 
1020 PRINT Hdv," So-Mo-Di-Mi-Do-Fr-Sa":PRlNT Hdv 
1030 day=l:GOSUB 1340 

1040 IF weekday=0 THEN PRINT kdv," 01 "; ELSE PRINT gdv,TAB(weekday»3+2);"01 "! 
1050 IF month=2 AND schaltjahr=l THEN lastday=29:G0T0 1070 
1060 lastday=days. in.month(month) 

1070 FOR i=2 TO lastday 

1080 dy$=HID$(STR$(i),2)*" ":IF LEN(dy$)=2 THEN dy$="0”*dy$ 

1090 IF POS(«dv)>20 THEN PRINT »dv,TAB(2) l 
1100 PRINT Itdv,dy$; 

1110 NEXT i‘.PRINT «dv:NEXT month 

1120 IF dv=0 THEN PR1NT:PRINT:UIND0U 1,40,23,24 ELSE LOCATE 1,23 
1130 UHILE INKEY$<>"":UEND ' Tastaturpuffer loeschen 
1140 PRINT STRING$(40,253);CHR$(24); 

1150 PRINT " Bitte dr"+CHR$(255)+"cken Sie eine Taste!"+SPACE$(10)+CHR$(24); 
1160 UHILE INKEY$="":UEND ' Auf Tastendruck warten 
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1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 


MODE HBORDER 2: INK 0,1: INK 1,24: INK 2,24,1: INK 3,21:G0T0 360 
' 3- Programm beenden 

PEN l:MODE l:PRINT STRING$(40,253)I:PRINT CHR$(24):ch$(l)!CHR$(24):PRINT 
LOCATE 1,4 

PEN 3:PRINT " Vollen Sie die Arbeit mit diesem" 

PRINT:PRINT " Programm wirklich beenden? "{ 

PEN 2:PRINT CHR$(143); 
in$=UPPER$(INKEY$}:lF in4="" WEN 1240 
IF in$="J" WEN MODE l:PEN l:BORDER l:END 
IF in$<>"N" WEN PRINT CHR$(7)} :GOTO 1240 
MODE 1:G0T0 360 
• « 

' « Unterprogramm: Tag ausrechnen 

' « Eingangsvariable: day,month,year 

' » Ausgangsvariable: dayname$ 

' » 

’ Ueberpruefung der Daten: - 

IF year<100 THEN year=year*1900 

IF year<1564 THEN errflag=l ‘.RETURN ELSE errflag=0 

IF year>4000 THEN errf lag=l .‘RETURN 

IF month<l OR month>12 THEN errf lag=l .‘RETURN 

IF day<l OR day>days.in.month(month) THEN errflag=i:RETURN 

' Schaltjahr beruecksichtigen - 

IF year MOD 4=0 THEN schaltjahr=l ELSE schaltjahr=0 
IF year MOD 100=0 AND year MOD 40000 THEN schalt Jahr =0 
IF schal tjahr=0 AND month=2 AND day>27 THEN errf Iag=i‘.RETURN 
IF schaltjahr=l AND month=2 AND day>28 THEN errflag=l:RETURN 

' Tag berechnen --- 

passed. days=one. year*year*year\4-year\l00*year\400-one.year 
passed.days=passed. days+total.days(month)+day-l 
IF month<=2 AND schaltjahr=l THEN passed.days=passed.days-1 
weekday=passed. days-7»INT(passed. days/7) 
dayname$=weekday$(weekday):RETURN 

' Daten zur Vochentagsberechnung #**##»*#»»»»*****»#****##*»***<(****»#»*#* 
DATA Januar, 31, Februar, 26, Maerz, 31, April,30,Mai, 31, Juni, 30, Juli, 31 
DA TA August, 31, September, 30, Oktober, 31, November, 30, Dezember, 31 
DATA Sonntag, Montag, Dienstag, Mi t twoch, Donnerstag, Frei tag, Samstag 














Utilities 



Bei den Schneider-Computern mit 
3-ZoU-Floppies lassen sich Disket¬ 
ten — wie bei vielen anderen Com¬ 
putern — durch Umlegen eines klei¬ 
nen Hebels an der Diskette mit ei¬ 
nem Schreibschutz versehen. Die¬ 
sen Schreibschutz kann man mit 
dem folgenden kurzen Maschinen- 
progranun auch von Basic aus ab- 
fragen. 

Bei der Programmeingabe müssen 
Sie sich entscheiden, ob Sie den 
Quellcode des Maschinenpro¬ 
gramms oder das Basic-Ladepro- 
gramm mit den DATA-Zeilen abtip¬ 
pen wollen. Der Basic-Loader gibt 
zusätzlich einige Bedienungshin¬ 
weise und erzeugt frei verschiebba¬ 
ren Maschinencode und legt ihn im¬ 
mer genau unter HIMEM ab. Auf 
diese Weise kann das „Speicher¬ 
platzopfer“ auf 80 Bytes beschränkt 
werden. 

Nach der Initialisierung der RSX- 
Erweiterung steht Ihnen ein neuer 
RSX-Befehl zur Verfügung: 

IDISC.WP 

„WP“ steht für „Write-protected“, 
also schreibgeschützt. Nach der Ein¬ 
gabe dieses RSX-Befehls können Sie 
die Speicherstelle 356 abfragen, die 
normalerweise vom Computer nicht 
benutzt wird und damit für unsere 
Zwecke zur Verfügung steht: 

A=PEEK(356) 

Wenn A=0, dann ist der Schreib¬ 
schutz auf der Diskette nicht einge¬ 
rastet; ein Wert von 255 sagt hinge¬ 
gen aus, daß der Schreibschutz ge¬ 
setzt ist. 

Dieses Programm läßt sich z. B. ge¬ 
winnbringend in Programmen ein- 
setzen, die die Diskettenlaufwerke 
benutzen. Es ist nämlich zumindest 
beim CPC-464 nicht möglich, Feh¬ 
lermeldungen der Floppy in Basic 
abzufangen! Probieren Sie doch ein¬ 
mal ON ERROR GOTO: dieser Be¬ 
fehl ist bei Diskettenfehlern wir¬ 
kungslos! Mit DISC.WP können Sie 


wenigstens diese - besonders ärger¬ 
liche - Fehlerquelle ausschließen. 
Besonders für fortgeschrittene Ma¬ 
schinenprogrammierer dürfte die 
Funktionsweise des Programms in¬ 
teressant sein: 

Wie fast alle Peripheriegeräte, die 
an Z80-Computer angeschlossen 
sind, werden auch die Floppies 
über die Z80-Ports verwaltet. Dies 
sind Ein- und Ausgabekanäle zur 
Kommunikation der CPU mit ande¬ 
ren ICs und Geräten. Genau auf die¬ 
se Weise wird auch der FDC (Flop- 
py-Disc-Controller) 765 angesteuert: 
Die Portadresse &FB7E verwaltet 
das Hauptstatus-Register des Con¬ 
trollers, die Adresse &FB7F das Da¬ 
tenregister. Werden über den Daten¬ 
port die Befehlsbytes &04 und &00 
ausgegeben, so liest der FDC sein 
Statusregister 3 aus, in dessen Bit 6 


das WP-Flag steht. Der Inhalt des 
Registers wird auf den Datenport ge¬ 
schickt und kann dort mit einem IN- 
Befehl gelesen werden. 

Ganz so einfach ist die Sache aber 
doch nicht: Der Floppy-Controller 
ist für Maschinenprogramme zu 
langsam! So muß zuerst festgestellt 
werden, ob der FDC ein „Request 
for Master“ schickt, eine Art Bestäti¬ 
gung der Empfangsbereitschaft. Au¬ 
ßerdem muß man nach jedem Byte, 
das auf den Datenport gegeben 
wird, dem Floppy-Controller Zeit 
geben, die benötigten Informationen 
zu liefern. Am einfachsten ist es, 
sich in einem ROM-Listing des 
Floppy-Betriebssystems ab der 
Adresse &C95C die Hilfsroutine an¬ 
zuschauen und im eigenen Pro¬ 
gramm zu verwenden! 

Martin KotulJa/LM 



Comp uter 

Schau 


79 
































UtiUties 


L 1 

s t i n g s 

DISC-SCHREIBSCHUTZ AUSLESEN 

100 

f 


110 

f 

; ^ 



M 

120 

r 

; ^ RSX-Erweiterung 

zur Abfrage des Schreibschutzes von Disketten ^ 

130 

f 

; * 




140 

f 


150 

t 





160 

t 


ORG 

&A000 

/ Der Basic-Loader ist relokatibel! 

170 

r 





180 

f 

Pö/?r 

EQU 

&FB7E 

; Status-Port des FDC 765 

190 

r 

MARK 

EQU 

&0164 

; Dort wird der yP-Status gespeichert 

200 

f 

LOGEXT 

EQU 

&BCD1 

; KL LOG EXTERNAL zum Einbinden von RSXs 

210 

f 





220 

t 

RSXTAB 

DEFU 

NAMTAB 

; Zeiger auf Namenstabelle 

230 

f 


JP 

yPTEST 

; Sprung in die Maschinenroutine 

240 

t 





250 

t 

NAMTAB 

DEFM 

^DISC. y^ 

/ Befehlsname DISC.yP 

260 

r 


DEFB 

W0, &00 

/ Ende des yortes und der Tabelle 

270 

f 





280 

r 

SPACE 

DEFS 

M4 

; l/ier Bytes Hilfsspeicher fuer Kernel -ROM 

290 

f 





300 

f 

INIT 

LD 

BC, RSXTAB 

; Zeiger auf Sprungtabelle 

310 

f 


LD 

HL,SPACE 

/ Zeiger auf Hilfsspeicher fuers Betriebssystem 

320 

f 


JP 

LOGEXT 

; Erweiterung einbinden, Ruecksprung nach Basic 

330 

r 





340 

t 

yPTEST 

LD 

BC, PORT 

; Zeiger auf Status-Port des FDC 

350 

t 


LD 

A,&04 

; Befehlswort des FDC fuer "Sense Drive Status" 

360 

t 


CALL 

FDC 

; An den FDC aus^etjen 

370 

t 


SUB 

A 

; Zweites Befehlswort fuer "Sense Drive Status" 

380 

f 


CALL 

FDC 

; Ebenso an den FDC aus^eden 

390 

f 





400 

r 

UAIT 

LD 

A,8 

1 Kurze yarteschleife, bis der FDC 

410 

r 





420 

r 

UAITLP 

DEC 

A 

/ den yert des Statusregisters ST3 

430 

f 


NOP 


/ geliefert hat 

440 

f 


JR 

NZ, yA ITLP 


450 

r 





460 

f 


INC 

BC 

/ Zeiger auf Datenport des FDC 

470 

r 


IN 

A, (C) 

; yert des Statusregisters ST3 aus lesen 

480 

r 


BIT 

6,A 

; Das 6.Bit entAaeit das yP-FIag 

490 

f 


LD 

A,0 

! Flag besetzen mit Null, we^en Flags kein SUB A 

500 

r 


JR 

Z, RETURN 

/ fc^enn nicht yp, sofort Ruecksprung 

510 

r 


XOR 

255 

; Sonst Akku mit &FF laden 

520 

f 





530 

r 

RETURN 

LD 

(MARK),A 

/ In MARK das Flag zur Sasic-i4dfra^e speichern 

540 

r 


RET 


; Ruecksprung nach Basic 

550 

r 





560 

f 

FDC 

PUSH 

AF 

i Auszugebenden Akkuwert sichern 

570 

f 





580 

r 

HOLD 

IN 

A, (C) 

/ Statusregister des FDC einiesen 

590 

f 


ADD 

A,A 

/ Bit 7 ins Carry-FJag schieben 

600 

r 


JR 

NC, HOLD 

; yarten, solange nicht REQUEST FOR MASTER 

610 

r 





620 

f 

OUTPUT 

POP 

AF 

; Akkuwert wiederherstellen 

630 

r 


INC 

BC 

/ Zeiger auf Datenport des FDC 765 

640 

r 


OUT 

(C),A 

/ Akkuinhalt aus^eden 
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650 


DEC 

C 

; Wieder Zeiger auf den Statusport des FDC 


660 


LD 

A,5 

! Kurze Warteschleife 


670 

r 





680 

' LOOP 

DEC 

A 



690 

1 

NQP 




700 

r 

JR 

NZ, LOOP 



710 

f 

RET 


; Ruecksprung zum aufrufenden Programm 

■ 

720 

t 

END 




L. i s t i n g I DISC-SCHREIBSCHUTZ AUSLESEN 


100 ' 

110 ' » » 

120 ' » DISC-SCHREIBSCHUTZ AUSLESEN » 

130 ' * * 

140 ' mm 

150 ' 

160 SYMBOL AFTER 255:SYMBOL 255, g/66, &0, &66, &66, &66, &66, &3E, &0 
170 MEMORY HIMEM-&50:start=HIMEM-H 
180 DEF FNmsb(a)=INT(a/256) AND 255 
190 DEF FNIsb(a)=UNT(a) AND 255 

200 FOR i=start TO start+&4CtREAD a:sum=sum+a:POKE i,a:NEXT 1 
210 IF sum=7984 THEN 230 ' Pruefsumme korrekt! 

220 PRINT CHR$(7)!” Fehler in den DATA-ZeiIen!”:PRINT:LIST 450- 
230 FOR i=l TO 6:READ a!a=a-&A000+start 
240 vaIue=PEEK(a)+PEEK(a+l)»256-40960+start 
250 POKE a,FNIsb(vaIue)iPOKE a+i,FNmsb(value) 

260 NEXT i 

270 CALL start*&ll ' RSX-Erueiterung einbinden 
280 MODE 1:INK 0,1:INK 1,24:INK 2, 6,16:INK 3,21 
290 PAPER 0:PEN 3:B0RDER 2:SPEED INK 30,20 
300 LOCATE 1,1 .-PRINT STRING$(40, 210) ; 

310 LOCATE 1,2 

320 PRINT CHR$(24)+" DISKETTEN-SCHREIBSCHUTZ AUSLESEN "*CHR$(24) 
330 LOCATE 10,5:PRINT CHR$(164)+" Martin Kotulia 1985” 

340 PRINT STRINGi(40,210) 

350 PEN 1:PRINT ” Dieses Programm bietet einen neuen" 

360 PRINT:PRINT " Befehl, mit dem bestimmt werden kann," 

370 PRINT.-PRINT " ob die Diskette im Laufwerk A schreib-" 

380 PR INT:PRINT " gesch"*CHR$(255) + "tzt ist oder nicht." 

390 PRINT STRING$(40, 210);:PRINT 

400 PEN 2:PRINT:PRINT TAB(9)I"!DISC.UP:PRINT PEEK(356)" 

410 PEN 3:PRINT:PRINT ” Z.B. ist die eingelegte Diskette":PRINT 

420 IDISC.UP:IF PEEK(356)=0 THEN PRINT " ohne Schreibschutz!":PRINT:END 

430 PRINT " mit einem Schreibschutz versehen!":PRINT 

440 ' Maschinencode *»i(x*m(innmmm**»******mi*»*if»*»«»»»»»»************* 
450 DATA &05, iiA0, SiC3, &1A, itA0, &44, &49, &53, &43, &2E, &57, &D0, &00, &20, &27, &0D 
460 DA TA &0A, &01, &00, &A0, &21, &0D, &A0, &C3, &D1, &BC, &01,&7E;&FB, &3E, it04, &CD 
4 70 DA TA &3B, &A0, &97, &CD, &3B, &A0, &3E, &08, &3D, &00, &20, &FC, &03, hED, Ä 76, &CB 
480 DA TA & 77, &3E, &00, &28, &02, &EE, &FF, &32, &64, &01, &C9, &F5, &ED, &78, &67, &30 
490 DA TA &FB, &F1, &03, &ED, &79, &0D, &3E, &05, &3D, &00, &20. &FC, &C9 
500 ' Daten zum Verschieben des Maschinencodes 
510 DA TA &a000, &a003, &a012, &a015, &a020, &a024 

520 END ' - 
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Disc-Backup auf Kassette 


Mit diesem Programm, das auf al¬ 
len Schneider-CPC*s lauffähig ist, 
können Sie komplette Disketten 
auf Kassette speichern. 

Dieses Programm lohnt sich, solan¬ 
ge die 3-Zoll-Disketten noch so teu¬ 
er sind. Eine C60-Kassette, auf der 
sich eine komplette Diskette spei¬ 
chern läßt, kostet etwa 3 Mark - 
verglichen mit dem Diskettenpreis 
ein unschlagbarer Kostenvorteil. 

Die Eingabe dürfte keine Schwierig¬ 
keiten bereiten, deshalb gleich zur 
Bedienung von CBACKUP: 

Nach dem Programmstart werden 
einige allgemeine Informationen 
zum Programm ausgegeben und Sie 
werden aufgefordert, die zu lesende 
oder zu beschreibende Diskette ins 
Laufwerk A einzulegen. Das Pro¬ 
gramm „verkraftet“ CP/M-, Vendor- 
und Data-Only-Disketten. Lediglich 
das „exotische“ IBM-Format wird 
nicht verarbeitet. Eine zu „ladende“ 
Diskette sollte aber im gleichen For¬ 
mat formatiert sein, wie die, die auf 
Kassette gespeichert wurde, da alle 
Formate die System- und Katalog¬ 
spuren unterschiedlich verwalten. 
Nach einem Tastendruck geht es 
weiter im Programm: Sie haben die 
Wahl zwischen 

(1) Diskette abspeichern und 

(2) Cassette einiesen. 


Diskette abspeidiem 

Hier werden Sie gefragt, ob die Kas¬ 
settenmeldungen angezeigt werden 
sollen oder nicht. Geben Sie „J“, „j“, 
„y“ oder „Y“ für Ja oder Yes ein, so 
müssen Sie nach jeweils 45 gespei¬ 
cherten Tracks die Meldung 
„PRESS REC AND PLAY THEN 
ANY KEY“ abwarten und eine Taste 
drücken. Dies ist nur dann sinnvoll, 
wenn Sie kürzere als C60-Kassetten 
verwenden und diese nach einiger 
Zeit umdrehen müssen. 

Bei einer Eingabe von „N“ oder „n“ 
für Nein läuft das Programm auto¬ 
matisch ab und gibt nur von Zeit zu 
Zeit „Reading“ mit den Tracknum¬ 
mern und „Writing“ aus. Sie kön¬ 
nen das Programm somit unbeauf¬ 
sichtigt laufen lassen. 

Die nächste Wahlmöglichkeit sieht 
so aus: 

(0] SPEED WRITE 0 
(1) SPEED WRITE 1 

Hiermit wird die Geschwindigkeit 
der Datenaufzeichnung auf dem 
Kassettenrecorder festgelegt. Ent¬ 
sprechend den Basic-Befehlen steht 
SPEED WRITE 0 für 1000 Baud und 
SPEED WRITE 1 für 2000 Baud. Bei 
der höheren Geschwindigkeit dau¬ 
ert das Sichern einer Diskettenseite 
etwa eine halbe Stunde. 


Kassette einiesen 

Mit diesem Unterprogramm lassen 
sich auf Kassette gespeicherte Dis¬ 
kettenseiten wieder auf eine Disket¬ 
te zurückschreiben. Bei der Frage 
„Gassettenmeldungen anzeigen?“ 
gilt das gleiche wie oben. 

Sobald Sie diese Frage beantwortet 
haben, beginnt der Gomputer mit 
dem Laden von Kassette. Selbstver¬ 
ständlich muß dann die PLAY-Ta- 
ste gedrückt werden. 

Wenn die Daten übertragen sind, er¬ 
scheint eine entsprechende Mel¬ 
dung und Sie werden gefragt, ob 
noch eine Diskette geladen oder ge¬ 
speichert werden soll. Der Gompu¬ 
ter springt bei „N“ für Nein nach 
Basic zurück oder startet bei „J“ für 
Ja das Backup-Programm erneut. 
Noch einige Hinweise: Verwenden 
Sie bitte nur Qualitätskassetten. Bei 
„billigen“ Kassetten ist die Gefahr 
von Dropouts [Aussetzer) zu hoch 
und würde ggf. Ihre Sicherheitsko¬ 
pie unbrauchbar machen. Nehmen 
Sie aber nur Ferro-Bänder; Sie tun 
Ihrem Gomputer mit Ghrom-Kasset- 
ten keinen Gefallen! Auch lassen 
sich von der Backup-Kassette keine 
Programme direkt laden, die Daten 
müssen zuerst wieder auf eine 
„richtige“ Diskette überspielt wer¬ 
den, um die Programme lauffähig zu 
machen. M. Kotulla/LM 
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00002 




00003 



f * 


00004 



; ^ Quell Code zum 

Maschinenspracheteil « 

00005 



; * von 

CBACKUP « 

00006 



; « 


00007 




00008 

00009 

AOOO 

(AOOO) 

ORG &AOOO 


000.10 

00011 

AOOO 

(BCD4) 

Fl NOCH EQU &BCD4 

: KL FIND COMMAND 
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00012 

AOOO 

84 

CMD84 

DEFB 

&84 

; RSX-Read Sector = ««84 

00013 

AOOl 

85 

CMD85 

DEFB 

&85 

; RSX-Write Sector = ««85 

00014 







00015 

A002 

(0002) 

RDJMP 

DEFS 

2 

; Speicher fuer Sprung- 

00016 

A004 

(0001) 

RDROK 

DEFS 

1 

; Adr. und ROM-States, 

00017 

A005 

(0002) 

WTJMP 

DEFS 

2 

; die von KL FIND COMMAND 

00018 

A007 

(0001) 

WTROM 

DEFS 

1 

; geliefert werden 

00019 







00020 



; 

Initialisierung der RSX-Spruenge 

00021 







00022 

A008 

21 00 AO 

INIT 

LD 

HL,CMD84 

; Zeiger auf RSX-Namen 

00023 

AOOB 

CD D4 BC 


CALL 

FINDCM 

: KL FIND COMMAND 

00024 

AOOE 

22 02 AO 


LD 

(RDJMP),HL 


00025 



; Adresse fuer 

RST-Sprung 

speichern 

00026 

AOll 

79 


LD 

A,C 

5 ROM-Status in den Akku 

00027 

A012 

32 04 AO 


LD 

(RDROM),A 

5 mit der Adr. speichern 

00028 







00029 

A015 

21 01 AO 


LD 

HL,CMD85 

; Zeiger auf RSX-Namen 

00030 

A018 

CD D4 BC 


CALL 

FINDCM 

; KL FIND COMMAND 

00031 

AOIB 

22 05 AO 


LD 

(UTJMP),HL 


00032 



; Adresse fuer 

RST-Sprung 

speichern 

00033 

AOIE 

79 


LD 

A,C 

5 ROM-Status in den Akku 

00034 

AOIF 

32 07 AO 


LD 

(WTROM),A 


00035 



; Und mit der 

Adresse speichern 

00036 

A022 

C9 


RET 


; Ruecksprung nach Basic 

00037 







00038 



; KM««« 

45 Sektoren lesen 


00039 







00040 

A023 

lE 00 

.READ 

LD 

E,0 

1 Laufwerk A=0 

00041 

A025 

06 2D 


LD 

B,45 

; 45 Sektoren laden 

00042 

A027 

OE 41 


LD 

C,&41 

; Sektornummer 

00043 

A029 

16 00 


LD 

D,0 

; Tracknummer 

00044 

A02B 

21 68 42 


LD 

HL,17000 


00045 



; Startadr. des Sektorpuffers 

00046 







00047 

A02E 

DF 

RDLOOP 

RST 

&18 

; Sektor einiesen 

00048 

A02F 

02 AO 


DEFW 

RDJMP 

; Zeiger auf Sprungvektor 

00049 







00050 

A031 

79 

RDNEXT 

LD 

A,C 

; Sektornummer in den Akku 

00051 

A032 

OC 


INC 

C 

; Zeiger naechster Sektor 

00052 

A033 

FE 49 

7 

CP 

&49 

; War der letzte Sektor #9 

00053 

A035 

38 03 


JR 

C,RDCONT 


00054 



: Nein 

keinen neuen Track anfangen 

00055 

00056 

A037 

OE 41 

RDXCHG 

LD 

C,&41 

5 Zeiger auf Sektor 1 ... 

00057 

A039 

14 


INC 

D 

; ... des naechsten Tracks 

00058 







00059 

A03A 

24 

RDCONT 

INC 

H 

; Bufferzeiger um 

00060 

A03B 

24 


INC 

H 

; (2*256 Bytes) erhoehen 1 

00061 

A03C 

10 FO 


DJNZ 

RDLOOP 


00082 



; Weiterraachen, bis alle 

Sektoren gelesen 
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00063 

A03E 

C9 




RET 


• 

# 

Ruecksprung nach Basic 

00064 










00065 






45 Sektoren schreiben 

«««««««««««««» 

00066 










00067 

A03F 

lE 

00 


.URITE 

LD 

E,0 

• 

Laufwerk A-0 

00068 

A041 

06 

2D 



LD 

B,45 

* 

45 Sektoren schreiben 

00069 

A043 

OE 

41 



LD 

C,&41 

« 

r 

Sektornummer 

00070 

A045 

16 

00 



LD 

D,0 

# 

t 

Tracknummer 

00071 

A047 

21 

68 

42 


LD 

HL,17000 

* 

f 

Startadr. Sektorpuffer 

00072 










00073 

A04A 

DF 



WTLOOP 

RST 

&18 



00074 





; RSX-Routlne 

URITE SECTOR 

auf rufen 

00075 

A04B 

05 

AO 



DEFU 

WTJMP 

9 

9 

Zeiger auf Sprungvektor 

00076 










00077 

A04D 

79 



WTNEXT 

LD 

A,C 

9 

9 

Sektornummer in den Akku 

00070 

A04E 

OC 




INC 

C 

9 

9 

Zeiger auf n. Sektor 

00079 

A04F 

FE 

49 



CP 

&49 

■ 

9 

War letzter Sektor #9? 

00080 

A051 

38 

03 



JR 

C,URCONT 



00081 





; Nein,keinen 

neuen Track anfangen 

00082 










00083 

A053 

OE 

41 


WTXCHG 

LD 

C,&41 

• 

f 

Zeiger auf Sektor 1 ... 

00.084 

A055 

14 




INC 

D 

• 

... des naechsten Tracks 

00085 










00086 

A056 

24 



URCONT 

INC 

H 



00007 





i Bufferzeiger um 512 Bytes 

erhoehen 

00088 

A057 

24 




INC 

H 

• 

I 

(2«256 Bytes) 

00089 

A058 

10 

FO 



DJNZ 

UTLOOP 



00090 





; Ueitermachen, bis alle Sektoren geschrieben 

00091 

A05A 

C9 




RET 


• 

f 

Ruecksprung nach Basic 

00092 

A05B 

(A05B) 



END 


i 

«««««««««««««««»»«»««««« 
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Errors 

! 00000 Uarnings: 

00000 





SYMBOL TABLE: 








AOOO CMD04 



AOOl 

CMD85 


BCD4 .FINDCM 


A008 INIT 

A0Q2 RDJMP 



A004 

RDROM 


A023 READ 


A02E RDLOOP 

A031 RDNEXT 



A037 

RDXCHG 


A03A RDCONT 


A005 UTJMP 

A007 WTROM 



A03F 

URITE 


A04A UTLOOP 


A04D UTNEXT _ 

A053 WTXCHG 



A056 

URCONT 




■ 


Listings DISC to TAPE (Ein BACKUP-PROGRAMM) 


100 ' 

110 ' * Disc-BACKUP auf Cassetten * 
130 ' 
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140 SYMBOL AFTER 250:MEMORY 16999 
150 FOR 1=40960 TO 41050:READ a'.POKE i,a:NEXT i 
160 SYMBOL 2S4,&66,&0,&66,S,66,&66,&66,&3E,i0 
170 SYMBOL 255,gt66,ii0,!i3C,ti66,&66,&66,&3C,&0 

180 ' Maschinencode-Daten: 45 Disc-Sektoren laden und speichern #*<*#*»* 

190 DA TA t<84, &65, &00, tt00, tt00, &00, t>00, &00, tt21, tt00, tiA0, StCD, &D4, ttBC, 8t22, S,02 

200 DA TA ttA0, it79, ii32, tt04, ttA0, i21,601, &A0, &CD, ttD4, ABC, &22, t,05, ttA0, ti79, tt32 

210 DA TA ge07, ttA0, ttC9, Stl E, ti00, tt06, &2D, &0E, i41,&l 6, tt00, &21, ti68, te42, &DF, tt02 

220 DA TA giA0, tt79, &0C, tiFE, A49, A36, A03, A0E, &41 , Al 4, A24, A24, A10, AF0, AC9, AlE 

230 DA TA A00, A06, A2D, A0E, A41 , Al 6, A00, A21, A68, A42, ADF, A05, AA0, A79, A0C, AFE 

240 DA TA A49, A38, A03, A0E, A41,A14,A24,A24, A10, AF0, AC9 

250 ’ Titelbild und Anleitung 

260 MODE 1:1NK 0,13: INK 1,0: INK 2,0,3: INK 3,1 

270 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 

280 LOCATE 1,1: PR INT STR1NG$(40,210) t 

290 LOCATE 1,2 * 

300 PRINT CHR$(24)+SPACE$(8)*"D1SC-BACKUP AUF CASSETTE"*SPACE$(8)*CHRt(24) 
310 LOCATE 10,5:PR1NT CHR$(164)i” Martin Kotulla 1985” 

320 PRINT:PR1NT STR1NG$(40,210) :PR1NT 

330 PEN l:PRINT ” Mit diesem Programm k”+CHR$(255)*”nnen Sie” 

340 PRINT:PR1NT ” komplette Disketten auf C60-Cassetten” 

350 PR INT:PR INT ” abspei ehern. ” 

360 UHILE INKEY$<>””:UEND ' Tastaturpuffer loeschen 

370 PEN 2:PRINT:PRINT:PR1NT ” Bitte legen Sie die Diskette ins” 

380 PR1NT:PR1NT ” Laufwerk und dr”+CHR$(2S4)*”cken Sie eine Taste!” 

390 UHILE 1NKEY$=””:UEND ' Auf Tastendruck warten 

400 ' Interface zu den Maschinenspracheteilen *#*»##**##*<?**####**#*#****#* 

410 init=AA008 ' Initialisierungsroutine 

420 readb=AA023 ' 45 Sektoren von der Diskette lesen 

430 writeb=AA03F ' 45 Sektoren auf Diskette schreiben 

440 ' Diskettentyp initialisieren »/f*#*##»**»*»*«»#*»***************»****** 
450 CALL init 
460 IDISC 

470 OPENOUT ”DUMMY. $$$”:CLOSEOUT ' FDC-Parameter aktualisieren 

480 fdcblock=PEEK(ABE42)+PEEK(ABE43)*256 ’ Zeiger auf FDC-Datenb1ock 

490 format=PEEK(fdcblock+AF)-l ' Formatierungstyp feststellen 

500 POKE AA028, format+1:POKE AA044,format+1 

510 POKE AA034,format+9:POKE AA050, formaU9 

520 POKE AA038, format+l:POKE AA054,format+1 

530 ' Menueauswahl ##**#»#**##**JHif*###*****#»»#*»***»********<'*********** 
540 MODE l:PEN 3:PR1NT:PR1NT ” Geben Sie bitte folgende Daten an:” 

550 PEN i:PRlNT:PRINT STR1NG$(40,210) :PR1NT:PEN 3 

560 PEN 2:PRINT ” [11 ”;:PEN l:PRINT ” Diskette abspeichern” 

570 PRINT 

580 PEN 2:PRINT ” [21 ”;:PEN 1:PR1NT ” Cassette einiesen” 

590 PRINT 

600 a$=lNKEY$:lF a$=”” THEN 600 
610 IF a$=”l” THEN 650 
620 IF a$=”2” THEN 940 
630 PRINT CHR$(7) ! :GOTO 600 

640 • Diskette auf Cassette transferieren »Jf»Jf*»**#if*******i(**#*****«»»## 
650 PRINT ” Cassettenmeldüngen anzeigen? ”f 
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660 a$=UPPER$(INKEY$):IF a$="" WEN 660 
670 IF a$='*J” OR a$='*Y” WEN cast='*":GOTO 700 
680 IF a$=W’ WEN cas$=”!":GOTO 700 
690 PRINT CHR$(7);:G0T0 660 
700 PRINT UPPER$(a$) 

710 PEN l:PRINT:PRINT STRINGt(40,210) :PRINT 

720 PEN 21PRINT " [0J "UPEN l:PRINT " SPEED VRITE 0" 

730 PRINT 

740 PEN 2:PRINT " 11J ";:PEN ItPRINT " SPEED URITE 1" 

750 PRINT 

760 a$=INKEY$!lF a$="" THEN 760 

770 IF a$="0" THEN SPEED VRITE 0tGOTO 800 

780 IF a$="l" THEN SPEED URITE ItGOTO 800 

790 PRINT CHR$(7)ItGOTO 760 

600 PRINT STRING$(40,210) 

810 PEN 3tUIND0U 2,39,22,24 
620 track=0 
630 FOR 1=1 TO 8 

840 POKE tiA02A, tracktPOKE ttA046, trackttrack=track*5 
650 IF cas$="" THEN 870 

860 PRINT US ING " Reading _ Track ## - IIg";track-5ltrack 

870 CALL readb 

880 FOR J=1 TO 5500tNEXT J • Warten, bis Floppymotor aus ist! 

690 IF cas$=”!" THEN PRINT " Uritlng _" 

900 ITAPEtSAVE cas$+"CBACKUP DISC"+STR$(i), b, 17000,23040 
910 NEXT 1 

920 GOTO 1120 ' Programmende 

930 ' Cassette auf Diskette transferieren *tnnofifini»*»*»***min»»** 

940 PRINT " Cassettenmeldüngen anzeigen? "l 

950 a$=UPPER$(INKEY$)tIF a$="" THEN 950 

960 IF a$="J" OR a$=”Y" THEN cas$=""tGOTO 990 

970 IF a$="N" THEN cas$="!"tGOTO 990 

980 PRINT CHR$(7);tGOTO 950 

990 PRINT UPPER$(a$) tPRINTtPRINT STRING$(40,210) 

1000 PEN 3tUIND0U 2,39,15,24 
1010 track=0 
1020 FOR i=l TO 8 

1030 POKE &A02A, tracktPOKE &A046, trackttrack=track*5 

1040 IF cas$="!" THEN PRINT " Reading _" 

1050 I TAPEtLOAD cas$+"CBACKUP DISC"+STR$(i) 

1060 IF oas$="" THEN 1060 

1070 PRINT USING " Uriting _ Track ## - ii";track-5ltrack 

1080 CALL writeb 

1090 FOR j=l TO 5500tNEXT J ' Warten, bis der Floppymotor aus ist! 

1100 NEXT i 

1110 ' Programmende n ****** tum innnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnm um* 
1120 CLStPRINT "Fertig - Die Daten sind "+CHR$(254)*"bertragen!” 

1130 PRINTtPRINT "Noch eine Diskette laden/spei ehern?" 

1140 a$=UPPER$(INKEY$)tIF a$="" THEN 1140 
1150 IF a$="N" THEN MODE ItPEN ItEND 
1160 IF a$="J" THEN CLEARtHODE ItGOTO 260 
1170 PRINT CHR$ ( 7) ; t GOTO 1140 
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„Memory Check“ - 
Prüfen Sie Ihren 
Computer! 


Eigentlich sollte es ja nicht Vorkom¬ 
men, aber kein Computer ist vor 
Defekten sicher. Besonders ärger¬ 
lich ist das, wenn ein Speicherchip 
nicht mehr richtig funktioniert und 
aus scheinbar unerklärlichen 
Gründen Programme, die vorher 
noch einwandfrei liefen, dauernd 
„aussteigen”. Mit dem Maschinen¬ 
programm „MEMORY CHECK” 
können Sie sich Gewißheit über 
den Zustand Ihres Computers ver¬ 
schaffen. 

Das Progranun läuft auf allen drei 
Schneider-Computern. 


MEMORY CHECK ist vollständig in 
Maschinensprache geschrieben. Das 
bedeutet, daß Sie entweder den 
Quellcode abtippen und assemblie» 
ren oder den Basic-Loader eingeben 
können. Entscheiden Sie sich für 
den Quellcode, dann müssen Sie 
zum Starten des Programms CALL 
&'A2Al eingeben; der Basic-Loader 
macht dies automatisch und sucht 
außerdem geeignete Bildschirmfar¬ 
ben heraus. 

Das Programm meldet sich mit ME¬ 
MORY CHECK VI.0 und zeigt in der 
Bildschirmmitte laufend die geprüf¬ 
ten Speicheradressen in Hexadezi- 
mal-Schreibweise an. Um die Verar¬ 
beitungsgeschwindigkeit zu erhö¬ 
hen, erfolgt die Anzeige nur an Pa¬ 
ge-Grenzen, also nach jeweils Z56 
Bytes. Ist Ihr Computer fehlerfrei, 
erscheint nach kurzer Zeit Speicher 
von &'0040-&'A000 Ok. In einem 
zweiten Durchgang wird dann der 
Bildschirm-RAM von &C000 bis 
&FFFF untersucht. Auch hier er¬ 
folgt bei einwandfreien Testergeb¬ 


nissen eine entsprechende Bild¬ 
schirmausgabe: Speicher von 

&'C000-&FFFF Ok - Bitte druecken 
Sie eine Taste! Nach dem Tasten¬ 
druck wird ein Reset ausgelöst, da 
eine Rückkehr nach Basic wegen 
der völlig veränderten Speicherin¬ 
halte kaum noch möglich ist. 

Sollten Sie zu den Pechvögeln mit 
defektem Computer gehören, er¬ 
scheint bei nicht funktionierenden 
Speicherstellen die Fehlermeldung 
Adrej3/ehJer und die defekte Adres¬ 
se wird ausgegeben. Nach einem Ta¬ 
stendruck wird auch hier ein Reset 
ausgelöst. In einem solchen Fall 
bleibt Ihnen nichts anderes übrig, 
als den Computer reparieren zu 
lassen. 

Es ist aber dringend zu empfehlen, 
das Programm schon vor dem Auf¬ 
treten solcher Fehler abzutippen 
und zu speichern - wenn die Fehler 
auftauchen, kann es zur Programm¬ 
eingabe schon zu spät sein! 

Für Interessierte hier noch einige 
Angaben zur Funktionsweise des 
Programms: MEMORY CHECK setzt 
in einer Programmschleife zuerst je¬ 
de Speicherstelle auf Null und liest 
den Inhalt der Speicherstelle wie¬ 
der. Erkennt das Programm einen 
anderen Wert als Null, so erfolgt 
eine Fehlermeldung. In einem zwei¬ 
ten Test werden daraufhin alle Bits 
der Speicherstelle auf Eins gesetzt, 
MEMORY CHECK lädt also den 
Wert 255 in die Speicher stelle. 
Wird beim erneuten Lesen ein ande¬ 
rer Wert festgestellt, so erfolgt die 
Fehlermeldung. 

Ziemlich schwierig war die Wahl 
der Speicherbereiche: Der Bereich 
von &0000 bis &0040 ist für Verän¬ 


derungen tabu, da dort die Restart- 
Vektoren stehen, die von allen 
ROM-Routinen verwendet werden. 
So würde z. B. die Bildschirmausga¬ 
be zum Systemabsturz führen. 
Ebenso verbietet sich die Verände¬ 
rung des System-RAMs, da hier 
wichtige Daten für den Computer 
stehen, insbesondere die Sprungta¬ 
belle, ohne die keine ROM-Routi¬ 
nen mehr verwendet werden kön¬ 
nen. Auch befindet sich im Adreß- 
bereich unter 49152 der System¬ 
stack des Z80-Prozessors. Diesen 
z. B. in einem Unterprogramm zu 
verändern, führt beim RET-Rück- 
sprung in den allermeisten Fällen 
zum System-Crash. Deshalb be¬ 
schränkt sich MEMORY CHECK 
darauf, den Bereich &0040 bis 
&A200 zu untersuchen. Hier kön¬ 
nen alle Speicherinhalte verändert 
werden, wenn man mit dem Z80- 
Maschinenbefehl DI alle Interrupts 
des Computers verbietet und auf ei¬ 
ne Rückkehr nach Basic verzichtet. 
In einer zweiten Schleife untersucht 
das Programm nach obig beschrie¬ 
benem Verfahren den RAM-Spei¬ 
cher von &C000 bis &FFFF. Da dort 
aber normalerweise der Bildschirm¬ 
speicher liegt, wäre es nicht gerade 
ästhetisch, die Tests vor den Augen 
des Programmbenutzers durchzu¬ 
führen. Schwerer wirkt aber das 
Problem, daß keine Bildschirmaus¬ 
gaben möglich wären. So kopiert 
MEMORY CHECK ganz einfach den 
gesamten Bildschirmspeicher mit 
LDIR in den Bereich von &4000 bis 
&7FFF und schaltet dann auf diesen 
Alternativbildschirm um. Der Be¬ 
nutzer merkt davon natürlich über¬ 
haupt nichts. Martin KotulJa/LM 
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L. i < 


t 1 TJ g 

: MEMORY-CHECK 



1000 

r 


1010 

t 

; ^ 





1020 

t 

; ^ 


MEMORY CHECK - 

prveft den RAM-Speicher ^ 

1030 

t 

; ^ 





1040 

f 


1050 

t 






1060 

f 


ORG 

&A200 


t Startadresse des Programms 

1070 

r 






1080 

t 

UAITKY EQU 

&BB18 


f KM UAIT KEY »artet auf Tastendruck 

1090 

t 

OUTPUT EQU 

&BB5A 


; TXT OUTPUT druckt Zeichen auf dem Screen 

1100 

t 

SETBAS 

EQU 

&BC06 


l SCR SET BASE verschiebt den Bildschirm 

1110 

r 






1120 

f 

TEXTl 

DEFB 

4,1,10,32, 24,32,32 

', 32, 32, 32, 32, 77, 69 

1130 

t 


DEFB 

77, 79, 82, 89, 32, 

67, 

72, 69, 67, 75, 32 

1140 

t 


DEFB 

86, 49, 46, 48, 32, 

32, 

32, 32, 32, 32,24 

1150 

t 


DEFB 

13,10,0 



1160 

t 






1170 

t 

TEXT2 

DEFB 

31,2,20, 83,112, 

101 

, 105,99,104,101,114,32 

1180 

1 


DEFB 

118,111,110,32, 

38, 

48, 48,52, 48, 45 

1190 

t 


DEFB 

38, 65, 48, 4E, 48, 

32, 

79,107,10,13,0 

1200 

f 






1210 

f 

TEXT3 

DEFB 

31,2,22, 83,112, 

101 

, 105,99,104,101,114,32 

1220 

t 


DEFB 

118,111,110,32, 

38, 

67, 46, 48, 48, 45 

1230 

i 


DEFB 

38, 70, 70, 70, 70, 

32, 

79,107,13,10,10 

1240 

t 






1250 

i 

TEXT4 

DEFB 

32, 66,105,116,116, 

101,32,101,105,110 

1260 

t 


DEFB 

101, 32, 84, 97,115,116,101,32,100 

1270 

f 


DEFB 

114,117,101,99, 

107,101,110, 33,0 

1280 

r 






1290 

f 

ERRMSG 

DEFB 

10,13,10,32, 65, 

100,114,101,115,115,102 

1300 

f 


DEFB 

101,104,108,101 

,114,32,105,110,32,0 

1310 

f 






1320 

f 

CRLF 

DEFB 

13,10,10,0 


; Nagenrueck1 auf und zweimal Line-Feed 

1330 

f 






1340 

r 

CURSET 

DEFB 

31,18,10,0 


/ Steuerzeichen fuer LOCATE 18,10 

1350 

i 






1360 

f 

START 

LD 

HL, TEXTl 


; Zeiger auf Text 1 

1370 

f 


CALL 

PRINT 


; ^MEMORY CHECK VI.0^ ausgeben 

1380 

f 


DI 



; Interrupts unterdruecken 

1390 

1 






1400 

1 

CHECKl 

LD 

HL, &0040 


9 Ende des RST-Bereichs 

1410 

r 


LD 

DE, TEXTl 


9 Zeiger auf Anfang des Programms 

1420 

r 


CALL 

CHKMEM 


9 Speicher zwischen (HL) und (DE) pruefen 

1430 



LD 

HL, TEXT2 


; Zeiger auf Text 2 

1440 

t 


CALL 

PRINT 


/ ^Speicher von Se0040-&A000 Ok** ausgeben 

1450 

t 






1460 


SCHO VE 

LD 

HL,&C000 


9 Zeiger auf Original-Bildschirmanfang 

1470 

r 


LD 

DE, &4000 


9 Zeiger auf zweiten Bildschirmspeicher 

1480 

1 


LD 

BC, &4000 


9 Der Bildschirm besteht aus 16KByte 

1490 

1 


LDIR 



9 Bildschirm umkopieren 

1500 

f 


LD 

A,&40 


; Highbyte der neuen Startadresse 

1510 

f 


CALL 

SETBAS 


9 Neue Bildschirmbasis setzen 
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1520 ' 





1530 ' 

CHECK2 

LD HL, &C000 

/ Zeiger auf Anfang des Pruefbereichs 


1540 ' 


LD DE, iFFFA 

/ Zeiger auf Ende des Pruefbereichs 


1550 ' 


CALL CHKMEM 

/ Speicher zwischen (HL) und (DE) pruefen 


1560 ' 


LD HL, TEXT3 

; Uenn Ok, dann Zeiger auf Text 3 


1570 ' 


CALL PRINT 

/ *^Speicher von 8eC0£f0-ieFFFF Ok^ aus geben 


1580 ' 


CALL WAITKY 

; Auf Tastendruck warten 


1590 ' 


RST &00 

; Reset ausfuehren 


1600 • 





1610 ' 

! CHKMEM prueft den Speicher von (HL) bis (DE) «****#«#*#*if************* 


1620 ' 





1630 ' 

CHKMEM 

SUB A 

/ Akku ioeschen 


' 


LD (HL),A 

; In (HL) alle Bits zuruecksetzen 


1650 ' 


LD A,(HL) 

/ Adresse wieder in den Akku einiesen 


1660 ' 


CP 0 

; Mit Null vergleichen 


i67^ ' 


JR NZ, ERROR 

/ Denn nicht Null, dann Fehlermeldung 







1690 ' 


LD A,iiFF 

/ Akku auf logisch Eins 


1700 ' 


LD (HL),A 

; In (HL) alle Bits setzen 


1710 ' 


LD A, (HL) 

; Adresse wieder in den Akku ei niesen 


1720 ' 


CP &FF 

; Mit SeFF vergleichen 


1730 ' 


JR NZ, ERROR 

; Uenn nicht StFF, dann Fehlermeldung 


J74^ ' 





1750 ' 

SHOU? 

LD A,L 

; CP-Befehl vorbereiten 


1760 ' 


CP 0 

; Ist eine Page-Grenze erreicht? 


1770 ' 


JR NZ, NEXT 

; Nein - weiterhin pruefen 


i7S^ ' 





i79^ ' 

HEXADR 

PUSH HL 

/ HL-Register sichern 


1800 ' 


LD HL, CURSET 

/ Zeiger auf LOCATE-String 


' 


CALL PRINT 

; Cursor positionieren 


1820 ' 


POP HL 

; HL-Register wiederherste11en 


ie3j0' ' 


PUSH HL 

; Und wiederum sichern 


ie4^ ' 


CALL HEXOUT 

/ Adresse als Hexziffer ausgeben 


1850 ' 


POP HL 

/ HL-Register wiederherstellen 







1870 ' 

NEXT 

INC HL 

/ Adresszeiger erhoehen 


1880 ' 


CALL CPHLDE 

; CP HL, DE: Speicherende erreicht? 


1890 • 


JR NZ,CHKMEM 

/ Nein - Speicher weiterhin pruefen 


1900 • 


RET 

; Ruecksprung zum aufrufenden Programm 


1910 • 





1920 • 

ERROR 

LD A, 7 

/ Fehler: BEEP-Code laden 


1930 ' 


CALL OUTPUT 

; Und ausgeben 


1940 • 


DI 

; Interrupts wieder unterdruecken 


1950 ' 


PUSH HL 

; HL-Register sichern 


1960 ' 


LD HL,ERRMSG 

/ Zeiger auf ^Adressfehler in " 


1970 ' 


CALL PRINT 

; Diesen String ausgeben 


1980 ' 


POP HL 

/ HL-Register wiederherstellen 


1990 • 


CALL HEXOUT 

; Adresse als Hexziffern ausgeben 


2000 ' 


LD HL, CRLF 

; Zeiger auf CR/LF/LF-String 


2010 ' 


CALL PRINT 

; Ausgeben 


2020 ' 


LD HL, TEXT4 

; Zeiger auf "Bitte Taste druecken!** 


2030 • 


CALL PRINT 

/ Ausgeben 


2040 ' 


CALL UAITKY 

; Auf Tastendruck warten 


2050 ' 


RST &00 

; Reset ausfuehren 


2060 ' 


POP HL 

; HL-Register wiederherstellen 
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2070 

t 


RET 


; Ruecksprung 

2080 

t 





2090 

t 

/ CPHLDE simuliert 


2100 

f 





2110 

f 

CPHLDE 

LD 

A,H 


2120 

t 


XOR 

D 


2130 

t 


LD 

A,H 


2140 

t 


JP 

P, CPPLUS 

2150 

t 


ADD 

A,A 


2160 

t 





2170 

t 

CPSUB 

SBC 

A,A 


2180 

t 


RET 

C 


2190 

t 


INC 

A 


2200 

f 


RET 



2210 

t 





2220 

r 

CPPLUS 

CP 

D 


2230 

f 


JR 

NZ,CPSUB 

2240 

r 


LD 

A,L 


2250 

r 


SUB 

E 


2260 

t 


JR 

NZ, CPSUB 

2270 

f 


RET 



2280 

f 





2290 

t 

/ PRINT druckt von 

(HL) bis- (HL)=0 Jifjifjif ä jifjf 

2300 

r 





2310 

t 

PRINT 

PUSH 

AF 

; Akku und Flags retten 

2320 

r 





2330 

f 

PTLOOP 

LD 

A, (HL) 

/ Akku mit ASCII-Zeichen Jaden 

2340 

f 


CP 

0 

/ Mit Null vergleichen 

2350 

r 


JR 

Z, PTRETN ; Bei Null: Stringende 

2360 

r 


CALL 

OUTPUT 

; Sonst auf dem Bildschirm ausgeben 

2370 

r 


DJ 


/ Interrupts wieder unterdruecken 

2380 

t 


INC 

HL 

; Adresszeiger erhoehen 

2390 

t 


JR 

PTLOOP 

; Und Ruecksprung in die Schleife 

2400 

t 





2410 

f 

PTRETN 

POP 

AF 

; Akku und Flags wiederherstellen 

2420 

r 


RET 


; Ruecksprung zum aufrufenden Programm 

2430 

t 





2440 

t 

HEXOUT 

LD 

A,91 

/ Ascii-Code fuer "f" 

2450 

f 


CALL 

OUTPUT 

; Aus geben 

2460 

t 


DI 


/ Interrupts verbieten 

2470 

t 


LD 

A,H 

; Akku mit dem H-Register laden 

2480 

t 


CALL 

SHIFT 

/ Shiften und als Hexziffer ausgeben 

2490 

r 


LD 

A,H 

/ Akku mit dem H-Register laden 

2500 

r 


CALL 

PRT 

/ Als Hexziffer ausgeben 

2510 

r 


LD 

A,L 

/ Akku mit dem L-Register laden 

2520 

f 


CALL 

SHIFT 

/ Shiften und als Hexziffer ausgeben 

2530 

r 


LD 

A,L 

; Akku mit dem L-Register laden 

2540 

t 


CALL 

PRT 

/ Als Hexziffer ausgeben 

2550 

t 


LD 

A,93 

; Ascii-Code fuer "J" 

2560 

t 


CALL 

OUTPUT 

; Aus geben 

2570 

t 


DI 


/ Interrupts verbieten 

2580 

t 


RET 


f Ruecksprung zum aufrufenden Programm 

2590 

r 





2600 

r 

SHIFT 

RRA 


/ Viermal je ein Bit aus dem rechten 

2610 

r 


RRA 


/ Nibble des Akkus herausshiften, so 
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2620 

r 


RRA 


9 

9 

dass nur noch das Unke Nibble uebrig- 

2630 

r 


RRA 


8 

bleibt 

2640 

t 






2650 

t 

PRT 

AND 

8,0F 

9 

9 

Linkes Nibble des Akkus ausblenden 

2660 

f 


ADD 

A,46 

9 

ASCII-Offset addieren 

2670 

r 


CP 

58 

9 

Groesser als ^9^? 

2680 

r 


JR 

C, SHOW 

• 

9 

Wenn nicht, direkt ausgeben 

2690 

r 


ADD 

A,7 

9 

Sonst Differenz zwischen "9" und "A" 

2700 

f 






2710 

f 

SHOW 

CALL 

OUTPUT 

9 

Ausgeben 

2720 

i 


RET 


9 

Ruecksprung zum aufrufenden Programm 

2730 

t 





■ 

2740 

f 


END 


9 



L i s t i -n g s MEMORY-CHECK 
100 • 

110 * * » 

120 • * MEMORY CHECK » 

130 • * * 

140 ' »»»)(»**»»»*» 

150 • 

160 MEMORY 41471 

170 FOR 1=41472 TO 41845 

180 READ atPDKE i,a:NEXT i 

190 INK 1,0:INK 0,13:BORDER 10 

200 PEN i:PAPER 0:SPEED INK 30,20 

210 CALL tiA2Al ' MEMORY CHECK auf rufen 

220 DA TA &04, &01, &0A, &20, &18, &20, &20, &20, &20, &20, &20, &4D, &45, &4D, &4F, &52 
230 DA TA &59, &20, &43, &48, &45, &43, &4B, &20, &56, &31, &2E, &30, &20, tc20, St20, tt20 
240 DATA &20, i<20, &16, &0D, &0A, &00, &1F, &02, &14, &53, 8e70, &65, &69, &63, &68, &65 
250 DA TA & 72, &20, & 76, &6F, &6E, &20, &26, &30, &30, &34, &30, &2D, &26, &41, Se30, &30 
260 DATA &30, &20, &4F, &6B, &0A, &0D, &00, &1F, &02, &16, &53, ii70, &6S, &69, ii63, &68 
270 DA TA &65, & 72, &20, & 76, &6F, &6E, &20, &26, &43, &30, tt30, &30, &2D, &26, &46, *46 
260 DA TA &46, &46, &20, MF, Si6B, &0D, &0A, &0A, &20, M2, &69, &74, &74, gt65, &20, &65 
290 DA TA &69, &6E, &65, &20, &54, &61,&73,&74, &65, ti20, &64, St72,ti75, &65, &63, &6B 
300 DA TA &65, &6E, &21, &00, &0A, &0D, !t0A, tt20. Ml, &64,&72, &65, &73,&73, &66, &65 
310 DATA &66, &6C, &65,&72, gi20, &69, &6E, 8/20, &00, tt0D, Si0A, ti0A, &00, blF, bl2, &0A 
320 DA TA &00, &21, &00, &A2, &CD, &36, &A3, &F3, &21, M0, &00, &11, tt00, &A2, &CD, &DA 
330 DA TA &A2, &21, &26, &A2, &CD, &36, &A3, &21, &00, &C0, &11, &00, M0, &01, ti00, M0 
340 DA TA &ED, &B0, &3E, M0, &CD, &06, &BC, &21, &00, itC0, &11, &FA, &FF, &CD, &DA, M2 
350 DA TA &21, M 7, &A2, bCD, &38, &A3, &CD, &16, &BB, &C7, &97, &77,&7E, &FE, &00, &20 
360 DATA &21, &3E, &FF,&77, &7E, &FE, &FF, &20, &19,&7D, &FE, &00, &20, &0D, &E5, &21 
370 DA TA &9D, &A2, &CD, &38, &A3, &E1, &E5, &CD, M7, &A3, &E1, &23, &CD, ie25, &A3, ti20 
380 DA TA &D9, &C9, &3E, &07, &CD, &5A, &BB, &F3, &E5, &21, &64, &A2, &CD, &38, &A3, &E1 
390 DA TA &CD, M 7, &A3, &21, &99, &A2, &CD, &38, &A3, &21, &68, &A2, &CD, &38, &A3, &CD 
400 DA TA &16, &BB, &C7, &E1, &C9, &7C,&AA,& 7C, &F2, b30, bA3, 8,87,8,9F, 8,D8,8,3C, 8,C9 
410 DATA 8iBA, 8,20,8iF9,8,7D, 8,93, 8,20,8,F5,8tC9, 8,F5,8,7E, 8rFE, 8,00,8,28,8,07,8,CD, 8tSA 
420 DA TA 8,BB, 8,F3, 8,23,8,18, 8,F4,8,F1,8,C9, 8,3E, 8,5B, 8,CD, 8,5A, 8,BB, 8,F3,8,7C, 8,CD, 8,64 
430 DATA 8,A3,8,7C, 8,CD, 8,66,8,A3, 8,7D, 8,CD, 8,64,8,A3,8,7D, 8,CD, 8,68,8tA3,8,3E, 8t5D, 8iCD 
440 DATA 8,5A,8,BB, 8,F3,8,C9, 8,1F, 8,1F, 8,1F, 8,1F, 8,E6,8,0F, 8,C6,8,30,8,FE, 8,3A, 8,38,8,02 
450 DATA 8,C6,8,07,8,CD, 8,5A,8,BB,8,C9 

460 END ' #Jf*Jf*##Jf****************************************************** 
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Anzeige 

der Funkdonstasten 


Auf den Schneider-Computern las¬ 
sen sich mit dem KEY-Befehl die 
Funktionstasten sehr einfach bele¬ 
gen, Leider ist es dann nicht mehr 
möglich, die Belegimg der Tasten 
anzeigen zu lassen. Das Programm 
„KEYLISr* schafft da Abhilfe, 


Das Programm initialisiert einen 
RSX-Befehl, mit dem der Sprach- 
umfang des Basic-Interpreters er¬ 
weitert wird: 

I KEYLIST 

Nach Eingabe dieses Befehls wer¬ 
den die ersten 25 Funktionstasten 
angezeigt, und zwar im gleichen 
Format wie bei der Eingabe des 
KEY-Befehls: 

KEY &80/‘0” 

KEY &81,“1" 

KEY &82,“Dies ist Funktions¬ 
taste 3” 
usw. 

Dieses Format hat den Vorteil, daß 
Sie durch Benutzung der COPY-Ta- 
ste alte Tastenbelegungen überneh¬ 
men und dabei modifizieren 
können. 


Wenn der Bildschirm vollgeschrie¬ 
ben ist, hält das Programm an und 
wartet auf einen Tastendruck von 
Ihnen. Nach diesem werden die üb¬ 
rigen Tastenbelegungen angezeigt. 
Einige Worte zur Funktionsweise 
des Programms: KEYLIST liest beim 
CPC-464 aus der Speicherstelle 
&B4E1 (beim CPC-664 und CPC- 
6128 ist dies die Adresse &B62B) 
einen Zeiger auf den Beginn der Be¬ 
legungstabelle der Funktionstasten. 
Beim CPC-464 ergibt dies normaler¬ 
weise die Startadresse 46150. In der 
darauffolgenden Schleife werden 
für jede Taste zuerst der Text 
„KEX die Tastennummer, ein 
Komma und ein Anführungszei¬ 
chen ausgegeben. In einer weiteren 
Schleife liest KEYLIST dann die 
Stringketten aus dem Speicher und 
zeigt sie am Bildschirm an. Sollte 
die Taste nicht belegt sein und so¬ 
mit der Funktionsstring die Länge 
Null haben, gibt KEYLIST einen 
Leerstring aus. Sobald der ASCII- 
Code 159 erreicht wird - das ist die 
höchste belegbare Funktionstaste -, 
kehrt das Programm wieder nach 
Basic zurück. 

Der Basic-Loader ist übrigens so 
programmiert, daß er mit einer klei¬ 
nen Maschinenroutine automatisch 


den verwendeten Computer er¬ 
kennt. Dies geht ganz einfach: 

CALL KL U ROM ENABLE 
(Basic-ROM einschalten] 

LD A,(&C002) 

(Modifikationb 5 rte im Basic- 
ROM lesen) 

LD (&016D],A 

[Im PEEKbaren Speicher 

unterbringen] 

RET 

(Rücksprung nach Basic] 

Durch Version=PEEK(&'016Dj kann 
der CüiiipuLeilyp festgestellt 
werden: 

Version=0; CPC-464 
Version=l; CPC-664 
Version=2: CPC-6128 
Andere Werte; bisher nicht 
verwendet 

Bei Version=l und Version=2 muß 
im Maschinenprogramm eine 
Adresse geändert werden, nämlich 
&B4E1 in &B62B. Im Bedarfsfall 
wird dies vom Programm automa¬ 
tisch erledigt. Erkennt das Pro¬ 
gramm einen Wert größer als 2, so 
gibt es eine entsprechende Fehler¬ 
meldung aus. Martin Kotulla/LM 


L 1 s -t i n g : KEYLIST 


1000 ^ 

1010 ' / # # 

1020 ^ / * KEYLIST " RSX-Erweiterung zur Anzeige der Funktionstasten-BeJegung * 
1030 ' ; # # 

1050 ' 

1060 ^ ORG itA000 ; Der Basic-Loader ist relokaJ isierbar! 

1070 ' 

1060 ^ BUFFST EQU &B4E1 ; Start Expbuffer, CPC-664/6128: StB62B 
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1090 ' UAITKY EQU gtBBlß 

; KM WA IT KEY - wartet auf Tastendruck 

1100 ' OUTPUT EQU &BB5A 

! TXT OUTPUT - Zeichen auf Bildschirm ausgeben 

1110 ' URCHAR EQU &BB5D 

; TXT WR CHAR - druckt auch Control-Codes 

1120 ' LOGEXT EQU &BCD1 

; KL LOG EXTERNAL - RSX-Routinen einbinden 

1130 • 



1140 ' RSXTAB 

DEFU NAMTAB 

; Zeiger auf NamenstabelIe 

1150 • 

JP KYLIST 

f Sprungvektor auf die Routine 

1160 ' 



1170 • NAHTAB 

DEFM "KEYLIS” 

! RSX-Name KEYLIST 

1180 ' 

DEFB &D4,&00 

! Ende des Namens & Ende der Tabelle 

1190 ’ 



1200 • SPACE 

DEFS &04 

/ Hi]fsspeicher fuers Betriebssystem 

1210 ' 



1220 ' INIT 

LD BC, RSXTAB 

; Zeiger auf RSX~Tabel1e 

1230 ' 

LD HL,SPACE 

; Zeiger auf Hilfsspeicher 

1240 ' 

CALL LOGEXT 

; RSX-Routine einbinden 

1250 ' 

RET 

/ Ruecksprung nach Basic 

1260 ' 



1270 ' TEXT 

DEFB 13 


1280 • 

DEFM "KEY” 


1290 ' 

DEFB 32,38 


1300 ' 



1310 ' KYLIST LD HL, (BUFFST) 

; Zeiger auf Beginn der Funktionszeichen 

1320 ' 

LD C, 128 

; Code der ersten Funktionstaste 

1330 ' 

LD A,12 

/ Code fuer CLFAR SCREEN 

1340 • 

CALL OUTPUT 

; Bildschirm loeschen 

1350 ' 



1360 ' PRINT 

PUSH BC 

; BC-Register sichern 

1370 • 

PUSH HL 

; HL-Register sichern 

1380 ' 

LD B,6 

; 6 Zeichen ausgeben 

1390 • 

LD HL, TEXT 

; Zeiger auf String **KEY 

1400 ' 



1410 ' PLOOP 

LD A, (HL) 

; Ein Zeichen des Strings Jesen 

1420 ' 

CALL OUTPUT 

/ Auf dem Bildschirm ausgeben 

1430 • 

INC HL 

; Stringzeiger erhoehen 

1440 ' 

DJNZ PLOOP 

/ Fertig? - wenn nicht, dann weitermachen 

1450 ' 

POP HL 

/ HL-Register wiederherstellen 

1460 ' 

POP BC 

/ BC-Register wiederherstellen 

1470 ' 



1480 • SHOVHX 

CALL HEX 

; ASCl1-Code der Funktionstaste ausgeben 

1490 ' 

LD A, 44 

; ASCl1-Code des Kommas 

1500 • 

CALL OUTPUT 

; Ebenfalls ausgeben 

1510 • 

LD A,34 

/ ASCl1-Code des Anfuehrungszeichens 

1520 ' 

CALL OUTPUT 

9 Wiederum aus geben 

1530 ' 



1540 ' LOOPl 

LD A, (HL) 

/ Laengenbyte der Zeichenkette lesen 

1550 ' 

LD B,A 

/ Ais Schleifenzaehier ins B-Register 

1560 ’ 

INC HL 

/ Zeiger auf Zeichenadresse erhoehen 

1570 ' 

CP 0 

f War die Funktionstaste ein Leerstring? 

1580 ' 

JR Z,CLOSE 

; Ja - Schlusszeichen und naechste Taste 

1590 ' 



1600 ' L00P2 

LD A,(HL) 

/ Ein Zeichen des Funktionsstrings lesen 

1610 ' 

PUSH AF 

; AF-Register sichern 

1620 ' 

PUSH BC 

/ BC-Register sichern 

1630 • 

PUSH DE 

/ DE-Register sichern 
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1640 

1 


PUSH 

HL 

1650 



CALL 

URCHAR 

1660 

f 


POP 

HL 

1670 

f 


POP 

DE 

1680 

1 


POP 

BC 

1690 

r 


POP 

AF 

1700 

t 


INC 

HL 

1710 

t 


DJNZ 

L00P2 

1720 

t 




1730 

t 

CLOSE 

LD 

A,34 

1740 

t 


CALL 

OUTPUT 

1750 

t 


LD 

A,10 

1760 

t 


CALL 

OUTPUT 

1770 

t 




1780 

t 

NEXT 

INC 

C 

1790 

r 


LD 

A,C 

1800 

t 


CP 

153 

1810 

f 


CALL 

Z, UAITKY 

1820 

t 


CP 

160 

1830 

t 


JR 

NZ, PRINT 

1840 

f 


RET 


1850 

t 




1860 

r 

HEX 

LD 

A,C 

1870 

r 


CALL 

SHIFT 

1880 

r 


LD 

A,C 

1890 

t 


CALL 

HXPRNT 

1900 

t 


RET 


1910 

t 




1920 

t 

SHIFT 

RRA 


1930 

t 


RRA 


1940 

t 


RRA 


1950 

t 


RRA 


1960 

r 




1970 

t 

HXPRNT 

AND 

15 

1980 

t 


ADD 

A,46 

1990 

1 


CP 

58 

2000 

t 


JR 

C, HEXOUT 

2010 

t 


ADD 

A, 7 

2020 

t 




2030 

f 

HEXOUT 

CALL 

OUTPUT 

2040 

t 


RET 


2050 

t 




2060 



END 



/ HL~Register sichern 
; Zeichen ausgeben 
; HL-Register wiederhersteilen 
/ DE~Register wiederhersteilen 
; BC-Register wiederherstei1en 
; AF-Register wiederherstei1en 
/ Zeiger auf das naechste Zeichen setzen 
; Solange weiter, bis der String gelesen ist 

/ Anfuehrungszeichen als Schlusszeichen laden 
/ Und ausgeben 
/ Line-Feed laden 
/ Und ausgeben 

; Zaehler fuer die Funktionstasten erhoehen 
/ Vorbereitung des CP-Befehis 
; Nach 25 Tasten ist der Bildschirm voll 
/ Uenn ja, dann auf Tastendruck warten 
; Hoechster Funktionstastencode ist 159 
; Solange nicht erreicht, weitermachen 
/ Sonst Ruecksprung nach Basic 

/ Hexziffer in den Akku laden 
; Shiften und linkes Nibble ausgeben 
/ Akku wiederherstellen 

/ Linkes Nibble ausblenden, rechtes ausgeben 
/ Ruecksprung zum auf rufenden Programm 

/ Mit diesen vier RRA-Befehlen wird 
/ das rechte Nibble aus dem Akku 
; herausgeshiftet und das linke Nibble 
/ zum rechten Nibble gemacht 

/ Mit 15 UNDieren loescht linkes Nibble 
/ Aus Binaer wird ASCII 
; Groesser als 9? 

; Nein - Zeichen ausdrucken 
; Ja - ASCI1'Zahlen-Buchstaben-OffsetJ 

/ Hexziffer ausgeben 

; Und Ruecksprung zum aufrufenden Programm 


L i s t i n g t KEYLIST 


100 * 

110 ^ # X 

120 ' X KEYLIST x 

130 ^ X X 

140 ^ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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1S0 ' 

160 DEF FNmsb(a}=255 AND INT(a/256) 

170 DEF FNlsb(a)=255 AND UNT(a) 

180 MODE ItINK 0,13: INK 1,0: INK 2, 0,3: INK 3,1 
190 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
200 LOCATE 1,1:PRINT STRING$(40,210)ß 

210 LOCATE 1,2:PRINT CHR$(24)+SPACE$(16)*”KEYLIST-+SPACE$(17)*CHR$(24) 

220 LOCATE 10,5:PRINT CHR$(164)ß” Martin Kotulla 1965" 

230 PRINT:PRINT STRING$(40,210) :PRINT 

240 PEN l:PRINT ” Hit diesem Programm wird der Basic-" 

250 PRINT:PRINT " Interpreter Ihres Computers um einen" 

260 PRINT:PRINT " RSX-Befehl erweitert, mit dem die Be-" 

270 PRINT:PRINT " legung der Funktionstasten ängezeigt" 

280 PRINT:PRINT " werden kann: "/ 

290 PEN 2:PRINT "IKEYLIST" 

300 PEN 3:PRINT:PRINT STRING$<40,210)ß 

310 PEN 2:PRINT:PRINT " Bitte druecken Sie eine Taste!":CALL &BB18:PEN 1 

320 MEMORY HIMEM-&90:start=HIMEM-H 

330 FOR i=start TO start*&9E:READ a:POKE i,a:NEXT i 

340 RESTORE 630:FOR i=l TO 8:READ a:a=ai-start 

350 vaIue=PEEK(a)+PEEK(a+l)*256-40960+start 

360 POKE a,FNlsb(vaIue):POKE a-H,FNmsb(value) 

370 NEXT i 

380 CALL start+17 ' RSX-Routine initialisieren 

390 ' Haschinenroutine zum Erkennen des Computers ************ 

400 POKE tt 160, ttCD:POKE &161, ti0:POKE &162,&B9:P0KE &163,tf3A 

410 POKE &164,&2:P0KE &165,S(C0:POKE &166,&32:P0KE itl67,&6D 

420 POKE &168,&l:P0KE &169,&C9:CALL &160 

430 version=PEEK(Sil6D) 

440 IF version=0 THEN IKEYLIST:END 
450 IF versionOl AND version<>2 THEN 480 
460 POKE starti-34,&2B:P0KE start^-35, SiB6 
470 IKEYLIST:END 
480 CLS:PEN 2 

490 PRINT:PRINT " Ich kann mit dieser Version des" 

500 PRINT:PRINT " Computers nichts anfangen! ":PRINT:PEN l:END 
510 ' Daten des Maschinencodes ***************************************** 
520 DA TA &05, &A0, &C3,&21, &A0, &4B, &45, &59, &4C, &49, &53,&D4, &00, &00, &00, &00 
530 DA TA &00, &01, &00, &A0, &21, &0D, &A0, &CD, &D1, &BC, &C9, &0D, tt4B, &45, it59, &20 
540 DATA &26, &2A, &E1, &B4, &0E, &80, &3E, &0C, &CD, &5A, &BB, &C5, &E5, it06, St06, &21 
550 DA TA &1B, &A0, & 7E, &CD, &5A, &BB, &23, ttl0, &F9, &E1, &Ci, &CD,&74, &A0, &3E, St2C 
560 DA TA &CD, &5A, &BB, &3E, &22, &CD, &5A, &BB, &7E, &47, te23, &FE, &00, &26, &0F, &7E 
570 DA TA &F5, &C5, &D5, &E5, &CD, &5D, &BB, &E1, &D1, &C1, &F1, &23, &10, &F1, ii3E, &22 
580 DA TA &CD, &5A, &BB, &3E, &0A, &CD, &5A, &BB, tt0C, & 79, LFE, &99, &CC, bl 8, bBB, bFE 
590 DA TA bA0, b20, bB8, bC9, b79, bCD, b7D, bA0, b79, bCD, b81, bA0, bC9, blF, blF, blF 
600 DA TA bl F, bE6, b0F, bC6, b30, bFE, b3A, b38, b02, bC6, b07, bCD, b5A, bBB, bC9 
610 DATA aa 

620 ' Daten zum Re lokalisieren des Maschinencodes ********************** 
630 DATA 0000,0003,0016,0021,0048,0060,0118,0122 

640 END • - 
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Der KompaMor 


Mit diesem Programm erfüllen wir 
zahlreiche Leserwünsche. Immer 
wieder wurde die Redaktion gebe¬ 
ten, zu allen Maschinenprogram¬ 
men auch die entsprechenden As- 
semblerlistings abzudrucken und 
zu erläutern. Wir können dies lei¬ 
der nicht bei allen Programmen 
tun. Dies würde den Rahmen eines 
Heßes total sprengen und wir müß¬ 
ten komplette Rücher für das eine 
oder andere größere Programm 
schreiben. Den Kompaktor, der 
auch im Textverarbeitungspro¬ 
gramm unseres ersten Schneider- 
Kompaktwissen-Heftes enthalten 
war, wollen wir aber etwas näher 
erläutern, da er als Utilitie (Hilfs¬ 
programm) auch bei Ihren eigenen 
Programmen Einsatz finden kann. 

Eigentlich sagt der Name schon, 
welchen Sinn das Programm hat. 
Irgendetwas wird kompakter ge¬ 
macht also „verdichtet“. Im vorlie¬ 
genden Falle geht es um im Spei¬ 
cher stehende Daten. 

Häufig befinden sich in einem Spei¬ 
cher jede Menge nicht brauchbare, 
also redundante Bytes. Bei einer Da¬ 
tei oder einem Text eines Textverar¬ 
beitungsprogrammes sind dies zum 
Beispiel Leerstellen (Spaces). Bei ei¬ 
nem Bildspeicher können es aber 
auch „Nullen“ sein. Sollen diese 
Daten nun auf einem externen Spei¬ 
chermedium (Kassette, Diskette, 
Microdrive usw.) „verewigt“ wer¬ 
den, so braucht man für diesen Vor¬ 
gang mehr Platz und mehr Zeit 
wenn diese „Redundanzbytes“ mit 
abgespeichert werden. Genau hier 
aber wird der Sinn und Zweck des 
Kompaktoreinsatzes deutlich. Der 
Kompaktor soll Abhilfe schaffen. 
Der Kompaktor besteht aus drei Tei¬ 
len. (Die Benennungen haben wir 
willkürlich gewählt.) 

Der Teil A (clear) dient dazu, den 
Speicherbereich zu löschen. 

Teil B (kompr) ist der „Packer“ der 
den Speicherbedarf komprimiert, 
also der eigentliche Kompaktor. 
Teil C (expan) ist der „Entpacker“ 


der die Daten wieder auf die ur¬ 
sprüngliche Speicherplatzausdeh¬ 
nung expandiert. 

Teil A ist also eigentlich kein Be¬ 
standteil dieser Utilitie, ist aber des¬ 
halb integriert, damit man zu Be¬ 
ginn einen „sauberen“ Speicher be¬ 
sitzt. Durch diesen Teil wird (im 
vorliegenden Programm) der Spei¬ 
cher mit Leerstellen aufgefüllt. 

Teil B sollte vor jedem Save-Vor¬ 
gang aufgerufen werden. Von Basic 
aus erhält das Programm die Adres¬ 
sen für Speicheranfang und -ende. 
Das Speicherende ist im vorliegen¬ 
den Falle mit „&F9“ gekennzeich¬ 
net. (Betrachten Sie die Arbeitswei¬ 
se vor allem auch in Verbindung 
mit dem im ersten Heft abgedruck¬ 
ten Textverarbeitungsprogramm!) 
Nach dem Programmaufruf beginnt 
der Teil B mit der Suche nach Leer¬ 
stellen (chr$(32)). Sobald dieser Co¬ 
de gefunden ist, schaut das Pro¬ 
gramm nach, ob mindestens noch 
weitere drei Leerstellen folgen. Ist 
dies nicht der Fall, dann geht die 
Suche weiter. Sind aber mehr als 
drei Speicherstellen hintereinander 
mit diesem Code belegt, dann wird 
komprimiert. Dazu ist als erstes die 
Anzahl der Leerstellen von Nöten. 
Diese wird zusammen mit einem 
„Kompressionszeichen“ (&F8) in 
die ersten drei Leerstellen geladen. 
Anschließend wird der Speicher so 
verschoben, daß alle Leerstellen in 
diesem Teil verschwinden. Sobald 
dies erledigt ist, springt das Pro¬ 
gramm wieder an den Anfang, und 
die Suche geht von neuem los. Ir¬ 
gendwann ist nichts mehr zum 
Komprimieren da, der Programm¬ 
teil hat seine Schuldigkeit getan 
und übergibt in die Speicherstellen 
&160/&161 die Länge des kompri¬ 
mierten Speichers. 

Nach einem „SAVE“ sollte sich nun 
unmittelbar der Lauf des dritten 
Programmteiles anschließen, damit 
der Datenspeicher wieder in den 
„Originalzustand“ zurückgesetzt 
wird. Denn sonst könnte es Vorkom¬ 
men, daß durch ein Print-Komman¬ 
do etwas aus dem komprimierten 


Speicher ausgegeben wird, was zu 
größter Verwirrung führt. Zum Bei¬ 
spiel Print chr$(4). 

Um dem also vorzubeugen, regene¬ 
riert der Expansionsteil wieder den 
Speicher, 

Von Basic aus kommen die origina¬ 
len Adressen für Speicheranfang 
und -ende. Gesucht wird nun nach 
&F8. Wird das Programm fündig, so 
kann der Speicher wieder um die 
Anzahl der Leerstellen verschoben 
werden. Die Leerstellen werden ein¬ 
gefügt und &F8 verschwindet. 
Nachdem dieser Programmteil abge¬ 
schlossen ist, befindet sich der 
Speicher wieder im „Originalzu¬ 
stand“. Wer bisher alles mitverfolgt 
hat, weiß es bereits: Auch direkt 
nach einem „LOAD“ sollte der Auf¬ 
ruf zur Expansion erfolgen. Ande¬ 
rerseits aber macht es dem Expan¬ 
sionsteil nichts, eine nichtkompri¬ 
mierte Datei vorgesetzt zu be¬ 
kommen. 

Der Aufruf der Routinen ist eine 
Schneider-Besonderheit, die nicht 
mit allen Z-80-Rechnern möglich 
ist. Mit CALL adresse,a,b können 
einem Maschinenprogramm auch 
die Werte zweier Variablen bekannt 
gemacht werden. Das Register „DE“ 
enthält bereits die letzte Variable, in 
diesem Falle also den Wert von „b“. 
Die zweite Variable erhält man über 
den Zeiger „IX“, der bei „IX+2“ auf 
das Lowbyte von „a“ zeigt. Natür¬ 
lich können auch mehr als zwei Va¬ 
riable an das Programm übergeben 
werden. Das „A“-Register enthält 
die Anzahl der Variablen nach dem 
CALL-Befehl. 

Generelles zum Programm 

Die Adresse &9D00 ist als Start¬ 
adresse nur ein Beispiel. Der gesam¬ 
te Code ist an jeder Stelle des Spei¬ 
chers „abrufbar“. Deshalb wurden 
als „Merkadressen“ auch die Spei¬ 
cherstellen ab &160 benutzt. Soll 
der Kompaktor zu Komprimierung 
von anderen Codefolgen (also nicht 
für Leerstellen) benutzt werden, so 
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sind die entsprechenden Codes im 
Programm zu ändern. Hierfür sollte 
dann das Assemblerlisting zu Rate 
gezogen werden. Das Programm 
komprimiert in der vorliegenden 
Version, wenn mindestens vier 
Leerstellen vorhanden sind. Das 
kann teilweise einige Zeit in An¬ 
spruch nehmen. Wird dieser Wert 
z. B. auf zehn erhöht, dann kann 
evtl, eine wesentlich schnellere Ab¬ 
arbeitung erfolgen. Dies hängt aber 
auch vom Speicherinhalt ab. Auf 


welchen Wert man die Grenze setzt, 
muß der Anwendungsfall ent¬ 
scheiden. 

Damit Sie den Kompaktor auch di¬ 
rekt in Aktion sehen können, haben 
wir ein kleines Demonstrationspro¬ 
gramm mit abgedruckt. Dabei wird 
dann der Speicher vor der Kompres¬ 
sion, nach Kompression und dann 
wieder nach der Expansion darge¬ 
stellt. Damit das ganze nicht zu 
langweilig ist, wird der Abstand 
zwischen den Worten des „geistrei¬ 


chen“ Textes mit einer Anzahl zu¬ 
fälliger Leerstellen gefüllt. Dadurch 
wird auch sichtbar, daß der Kom¬ 
paktor erst bei der vorgegebenen 
Anzahl der Leerstellen aktiv wird. 
Ganz zum Schluß soll noch ange¬ 
merkt werden, daß dieses Pro¬ 
gramm bei vielen Anwendungen 
eingesetzt werden kann. Als Bei¬ 
spiel sei hier nur auf den Einsatz bei 
einer Dateiverwaltung hingewiesen. 

B. Fernhomberg/LM 


ARNOR 

Z80 

ASSEMBLER 

Version 1 . 10 


Page 001 

00002 





(c) 10/85 FB 

00003 




;»*» CPC KOMPAKTOR »»* 


00004 






00005 







00006 




;Alle Routinen 

werden von 

BASIC mit 

00007 




; CALL X, Speicherende,Speicheranfang 

00008 




lauf gerufen. 



00009 







00010 




VARIABLENLISTE **» 


00011 







00012 

9F00 

(0160) 


SPHL EQU 

&160 

jLaenge kompr. Speicher 

00013 

9F00 

(0162) 


SPBC EQU 

&162 


00014 

9F00 

(0164) 


SPDE EQU 

&164 


00015 

9F00 

(0166) 


ZWSP EQU 

&166 


00016 







00017 

9D00 

(9F00) 


ORG 

&gDOO,§ 


00018 







00019 




KOMPRESSION *»» 


00020 







00021 

9D00 

ED 53 

62 

01 KOMPR LD 

(SPBC),DE 

!Speicheranfang und 

00022 

9D04 

DD 6E 

02 

LD 

L,(IX+2) 

1 Spei eher ende kommeni 

00023 

9D07 

DD 66 

03 

LD 

H,(lX+3) 

f aus BASIC. 

00024 

9D0A 

36 F9 


LD 

(HL),&F9 

;Zeichen Speieherende 

00025 

9D0C 

23 


INC 

HL 


00026 

9D0D 

22 60 

01 

LD 

(SPHL),HL 


00027 

9D10 

2A 62 

01 

LD 

HL,(SPBC) 

;Speicheranfang 

00028 







00029 

9D13 

EB 


BEGINN EX 

DE, HL 

;DE ist akt. Sp.adr. 

00030 

9D14 

2A 60 

01 

LD 

HL,(SPHL) 

;akt. Speieherende 

00031 

9D17 

A7 


AND 

A 

;Errechnung Zaehler fuer 

00032 

9D18 

ED 52 


SBC 

HL, DE 

; Space Suche. 

00033 

9D1A 

E5 


PUSH 

HL 


00034 

9D1B 

CI 


POP 

BC 

;BC ist Zaehler 

00035 

9D1C 

EB 


EX 

DE, HL 


00036 







00037 

9D1D 

3E 20 


LD 

A,&20 

;Suche nach Space 

00038 

9D1F 

ED Bl 


CP IR 



00039 

9D21 

28 OE 


JR 

Z,K0MP 

;Ist BC=0, dann Ende 

00040 
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00041 

9D23 

ED 

4B 

62 

01 

ENDE 

LD 

BC,(SPBC) 

;akt. Speieherende minus 

00042 

9D27 

2A 

60 

01 



LD 

HL,(SPHL) 

Speicheranfang = 

00043 

9D2A 

A7 





AND 

A 

Gesamtlaenge des komp. 

00044 

9D2B 

ED 

42 




SBC 

HL,BC 

Speichers. 

00045 

9D2D 

22 

60 

01 



LD 

(SPHL),HL 

iLaenge ist in SPHL 

00046 

9D30 

C9 





RET 


gespeichert. 

00047 










00048 

9D31 

2B 




KOMP 

DEC 

HL 

1. Adr. von Space 

00049 

9D32 

E5 





PUSH 

HL 

wird gerettet. 

00050 

9D33 

01 

01 

00 



LD 

BC,1 


00051 










00052 

9D36 

03 




KOMPl 

INC 

BC 

lAnzahl der Spaces 

00053 

9D37 

23 





INC 

HL 

wird gesucht. 

00054 

9D38 

BE 





CP 

(HL) 


00055 

9D39 

28 

FB 




JR 

Z,KOMPl 


00056 










00057 

9D3B 

Dl 





POP 

DE 


00058 

9D3C 

97 





SUB 

A 

Ist BC<4, dann wird 

00059 

9D3D 

B8 





CP 

B 

das naechste Space 

00060 

9D3E 

20 

05 




JR 

NZ,K0MP2 

gesucht. 

00061 

9D40 

3E 

03 




LD 

A,3 


00062 

9D42 

B9 





CP 

C 


00063 

9D43 

30 

CE 




JR 

NC,BEGINN 


00064 










00065 

9D45 

EB 




K0MP2 

EX 

DE, HL 


00066 

9D46 

36 

F8 




LD 

(HL),&F8 

Kompressionszeichen 

00067 

9D48 

23 





INC 

HL 

Die Anzahl der Spaces 

00060 

9D49 

71 





LD 

(HL),C 

wird in den Speicher 

00069 

9D4A 

23 





INC 

HL 

ge 1aden. 

00070 

9D4B 

70 





LD 

(HL),B 


00071 

9D4C 

23 





INC 

HL 


00072 

9D4D 

EB 





EX 

DE,HL j 

IDE VerschiebungsZIEL 

00073 










00074 

9D4E 

D5 





PUSH 

DE 

lAdr. wird gerettet 

00075 










00076 

9D4F 

E5 





PUSH 

HL 1 

JHL ist QUELLE 

00077 

9D50 

E5 





PUSH 

HL 


00078 

9D51 

CI 





POP 

BC 


00079 










00080 

9D52 

2A 

60 

01 



LD 

HL,(SPHL) 

akt. Sp.ende minus 

00081 

9D55 

A7 





AND 

A ; 

Que11e ergibt 

00082 

9D56 

ED 

42 




SBC 

HL,BC 

Zaehler fuer Sp.- 

00083 

9D58 

E5 





PUSH 

HL ; 

Verschiebung, 

00084 

9D59 

CI 





POP 

BC 

BC ZAEHLER 

00085 

9D5A 

El 





POP 

HL 


00086 










00087 

9D5B 

ED 

BO 




LDIR 


; Spei eherVerschiebung 

00088 










00089 

9D5D 

El 





POP 

HL 

;Adr. fuer Fortsetzung 

00090 

9D5E 

ED 

53 

60 

01 


LD 

(SPHL),DE i 

laktuelles Speicherende 

00091 

9D62 

18 

AF 




JR 

BEGINN 


00092 










00093 






;«ft # 

EXPANSION 


00094 










00095 

9D64 

DD 

6E 

02 


EXP AN 

LD 

L,(IX+2) 

; Spei cheranfang und 
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00096 

9D67 

00 66 03 


LD 

H,(IX+3) ; 

Spei eherende kommem 

00097 

9D6A 

EO 53 62 01 


LD 

(SPBC),DE ; 

aus BASIC. 

00098 

9D6E 

A7 


AND 

A 


00099 

9i)6F 

ED 52 


SBC 

HL, DE 


00100 

9D71 

22 64 01 


LD 

(SPDE),HL ;Spei clifip laenge 

00101 







00102 

9D74 

2A 62 01 


LD 

HL,(SPBC) ; 

Suche nach akt. 

00103 

9D77 

3E F9 


LD 

A,S<F9 5 

Speicherende. 

00104 

9D79 

ED 4B 64 01 


LD 

BC,(SPDE) ; 

Gesamtspeicherlaenge 

00105 

9D7D 

ED Bl 


CPIR 



00106 

9D7F 

CO 


RET 

NZ 


00107 

9D80 

2B 


DEC 

HL 


00108 







00109 

9D81 

22 60 01 


LD 

(SPHL),HL ; 

akt. Speicherende 

00110 

9064 

2A 62 01 

BEGEX 

LD 

HL,(SPBC) 


00111 

9087 

3E F8 


LD 

A,S<F8 

Suche nach 

00112 

9089 

ED 4B 64 01 


LD 

BC,(SPDE) 

Kompressions- 

00113 

9080 

ED Bl 


CPIR 


Zeichen. 

00114 

908F 

CO 


RET 

NZ 

Ist BC=0, dann ENDE. ^ 

00115 







00116 

9090 

2B 


DEC 

HL 


00117 

9091 

E5 


PUSH 

HL 

1.Spaceadresse 

00118 

9092 

23 


INC 

HL 


00119 

9093 

4E 


LD 

C,(HL) 

BC Anzahl der einzu- 

00120 

9094 

23 


INC 

HL 

fuegenden Spaces 

00121 

9095 

46 


LD 

B,(HL) 

minus 4. 

00122 

9096 

OB 


DEC 

BC 


00123 

9D97 

OB 


DEC 

BC 


00124 

9098 

OB 


DEC 

BC 


00125 

9099 

OB 


DEC 

BC 


00126 

909A 

ED 43 66 01 


LD 

(ZUSP),BC 

■Anzahl wird gerettet. 

00127 







00128 

gooE 

2A 60 01 


LD 

HL,(SPHL) 

:das alte Sp.ende ist 

00129 

90A1 

E5 


PUSH 

HL 

; die QUELLE. 

00130 

9DA2 

09 


ADD 

HL,BC 


00131 

90A3 

22 60 01 


LD 

(SPHL),HL 

Jneues akt. Ende 

00132 







00133 

90A6 

EB 


EX 

DE, HL 

;DE ZIEL 

00134 

90A7 

El 


POP 

HL 


00135 

9DA8 

CI 


POP 

BC 


00136 

goAg 

E5 


PUSH 

HL 

tl.Spaceadr. minus 

00137 

90AA 

A7 


AND 

A 

t Quelle ergibt den 

00138 

gOAB 

ED 42 


SBC 

HL,BC 

; ZAEHLER. 

00139 

90A0 

E5 


PUSH 

HL 


00140 

90AE 

CI 


POP 

BC 


00141 

90AF 

El 


POP 

HL 

:hl quelle 

00142 







00143 

90B0 

ED B8 


LDDR 


; SpeieherVerschiebung 

00144 







00145 

9DB2 

ED 4B 66 01 


LD 

BC,(ZWSP) 

;Einfuegen der Spaces 

00146 

goB6 

03 


INC 

BC 


00147 

90B7 

03 


INC 

BC 


00148 

goBB 

36 20 


LD 

(HL),&20 

:hl quelle 

00149 

goBA 

E5 


PUSH 

HL 


00150 

gOBB 

Dl 


POP 

DE 
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00151 

ODBC 

13 

INC 

OE 

;0E ZIEL 

00152 

90B0 

EO BO 

LOI'R 



00153 

00154 

90BF 

18 C3 

JR 

BEGEX 


00155 

90C1 

(9FC1) 

ENO 




Errors: 00000 Uarnings: 00000 
SYMBOL TABLE: 


9013 BEGINN 
9000 KOMPR 
0160 SPHL 


9084 BEGEX 
9031 KOMP 
0162 SPBC 


9023 ENOE 
9036 KOMPl 
0164 SPOE 


9064 EXPAN 
9045 K0MP2 
0166 ZWSP 



Listing s KOMPOEMO (Kompaktor-Oemonstration) 

100 '*#»*<?***#**########### c 10.85/FB 
110 '*** KOMPAKTOR DEMO 
120 ' xifidnf )(**)(im)(*»)(***»* 

130 MODE l:MEMORY 19999 

140 LOCATE 9,2!PRINT”K OMPAKTOR Demo" 

150 LOCATE e,3:PRlNT STRING$(19, "=") 

160 LOCATE 1,9:PR INT"ACHTUNG! Dieses Programm arbeitet nur," 

170 LOCATE 10,ll:PRINT"wenn der KOMPAKTOR geladen ist." 

160 LOCATE 9,16:PRINT"Bitte legen Sie die Cassette mit" 

190 LOCATE 9,20:PRINT"dem KOMPAKTOR M-Code ein." 

200 LOCATE 9,22:PRlNT"Starten Sie dann den Recorder." 

210 LOAD"!KOMPCODE. BIN", &9D00 

220 ' »»im Kit HX im im 
230 '»»» DEMO »»» 

240 •»»»»»»»»»»»» 

250 MODE 2 

260 LOCATE 2,2:PRINT"Speicheranfang: 20000", :spa=20000 
270 PRINT CHR$(&F6)Zeichen fuer Kompression" 

260 LOCATE 2, 4:PRlNT"Speicherende : 20060", :spe=20060 
290 PRINT CHR$(iiF9)Zeichen fuer akt. Speicherende" 

300 ' 

310 LOCATE 2, 6:PRINT "Dieses steht als Test im Speicher:" 

320 a$=" DER"+STRING$(RND»10," ") + "KOMP."*STRING$(RND»10," ") + "HAT" 

330 a$=a$-iSTRING$(RND»10, " ") + "GROSSE"+STRING$(RND»10, " ") ^"VORTEILE. " 
340 a$=a$+STRING$(60-LEN(a$), CHR$(32)) 

350 FOR n=l TO LEN(a$):P0KE 19999*n, ASC(MID$(a$, n, 1)):NEXT 
360 LOCATE 1,10:GOSUB 520 
370 • 

360 CALL &9D00,spe,spa:'KOMPRESSION 

390 LOCATE 2,14:PRlNT"Nach KOMPRESSION (Laenge:"; 

400 PRINT PEEK(&160)^256»PEEK(&161);"):" 

410 LOCATE 1,16:G0SUB 520 
420 • 

430 CALL &9D64,spe,spa:'EXPANSION 

440 LOCATE 2,20:PRINT"und dann nach EXPANSION:" 

450 LOCATE 1,22:G0SUB 520 
460 ' 
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470 LOCATE 2,25:PRINT'*Bitte Taste druecken^iCALL itBB06 

480 GOTO 250 

490 

500 SUBPROGRAMM »»» 

510 ' 

520 PRINT CHR$(&18);iFOR n=20000 TO 20080:c=PEEK(n) 

530 IF c<32 THEN PRINT CHR$(c+48)!sELSE PRINT CHR$(c): 
540 NEXT'.PRINT CHR$(&18) l:RETURN 



L i s t. i n g s KOMPAKTOR 


100 ' C 10,85/FB 

110 •»»* HEX-Lader fuer KOMPAKTOR 
120 '#*#**####**##*****#************# 

130 ' 

140 DIM a$(13)!SPEED WRITE 1 

150 A$(l)= "ED 53 62 01 DD 6E 02 DD 66 03 36 F9 23 22 60 01” 

160 A$<2)= ”2A 62 01 EB 2A 60 01 A7 ED 52 E5 CI EB 3E 20 ED” 

170 At(3)= ”B1 28 0E ED 4B 62 01 2A 60 01 A7 ED 42 22 60 01” 

180 A$(4)= ”C9 2B E5 01 01 00 03 23 BE 28 FB Dl 97 B6 20 05” 

190 A$(5)= ”3E 03 B9 30 CE EB 36 F8 23 71 23 70 23 EB D5 E5” 

200 A$(6)= ”E5 CI 2A 60 01 A7 ED 42 E5 CI El ED B0 El ED 53” 

210 A$(7)= ”60 01 18 AFüDD 6E 02 DD 66 03 ED 53 62 01 A7 ED” 

220 A$(8)= ”52 22 64 01 2A 62 01 3E F9 ED 4B 64 01 ED Bl C0” 

230 A$(9)= ”2B 22 60 01 2A 62 01 3E F6 ED 4B 64 01 ED Bl C0” 

240 A$(10}=”2B E5 23 4E 23 46 0B 0B 0B 0B ED 43 66 01 2A 60" 

250 A$(ll) = ”01 E5 09 22 60 01 EB El CI E5 A7 ED 42 E5 CI El” 

260 A$(12)=”ED B6 ED 4B 66 01 03 03 36 20 E5 Dl 13 ED B0 18" 

270 A$(13)=”C3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0^" 

280 ' 

290 'Pruefcode 
300 • 

310 DATA 1547,1989,1382,1575, 2048,2636,1778 
320 DA TA 1688,1644,1079,2369,1822,195 
330 ' 

340 ' 

350 MODE 2:REST0RE: INPUT”Startadresse fuer KOMPAKTOR: ”, adr:sadr=adr 
360 IF adr>43710 THEN 350 ELSE MEMORY (adr-1) 

370 FOR m=l TO 13:sum=0:a$(ni) = ”00”+a$(m) 

360 FOR n=l TO 16:a=VAL("&”+MID$(a$(m),n»3)) 

390 POKE adr,a:sum=suin+a:adr=adr*l 
400 NEXTiREAD a 

410 IF aOsum THEN LOCATE 20,12:PRINT”FEHLER IN A$(";m;”)":END 


420 NEXT m 
430 ' 

440 LOCATE 20,9:PRINT”AIles in Ordnung. Hex-Code ist geladen." 

450 LOCATE 20,14:PRINT"Adr. Kompression: &"(HEX$(sadr) 

460 LOCATE 20,16: PR INT” Adr. Expansion : St” ;HEX$<sadr+100) 

470 LOCATE 1,20 

480 PRINT”Aufruf der Routinen: CALL (Adr.), Speicherende, Speicheranfang” 
490 LOCATE 1,22:PRINT”SAVE KOMPAKTOR CODE:” 

500 SAVE”Koapcode. bin”,B, sadr, 193 h 

510 END " 
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DIN-Tastatur für 
Schneider CPC 464/664/ 
6128 unter CP/N 2.2 


Leider stehen für den CPC unter 
CP/M keine deutschen Zeichen zur 
Verfügung. Mit diesem Programm 
haben Sie aber auch unter CP/M 
2.2 eine DIN-Tastatur. 

Zur DIN-Tastatur gehören die Um¬ 
laute und die entsprechende Tasta¬ 
turbelegung wie sie auf einer 
Schreibmaschine vorkommt. 

Beim Schneider-Computer kann 
man bekanntlich den Zeichensatz 
und die Tastaturbelegung ändern. 
Unter Basic gibt es entsprechende 
Befehle, die dazu benutzt werden 
können. Das Betriebssystem stellt 
für die Maschinensprache Sprung¬ 
adressen zur Verfügung. Diese kön¬ 
nen auch unter CP/M 2.2 benutzt 
werden. Mit diesen Sprungadressen 
werden die Wiederholungen und 
die Änderung der Tastaturbelegung 
vorgenommen. So wird zum Bei¬ 
spiel auch die TAB-Taste und die 
ENTER-Taste in die Wiederholung 
mit einbezogen, da sie auch auf der 


Schreibmaschine so vorhanden ist. 
Das Ändern des Zeichensatzes stellt 
dabei eine Besonderheit dar. Die 
Umlaute werden nicht in die Matrix 
eingebaut, sondern werden immer 
dann angerufen, wenn ein Zeichen 
zur Ausgabe ansteht. Dazu wird der 
Vector TXT WRITE CHAR der Be¬ 
triebssystemroutine verbogen und 
auf eine Routine im Speicher ge¬ 
setzt. Dort wird abgefragt ob ein ent¬ 
sprechendes ASCII-Zeichen (z. B. 
7B) ansteht. Ist dies der Fall, wird 
der Zeiger auf die Deutschen Zei¬ 
chen in einem Zwischenspeicher 
gestellt, und dem Betriebssystem 
mitgeteilt. Erst dann wird das Zei¬ 
chen ausgegeben. 

Wie enteile ich mir nun ein 
Command-File auf Diskette! 

Sie können den ED.COM unter CP/ 
M dazu benutzen. Dieser Editor ist 
allerdings schwierig zu handhaben. 
Gehen Sie in CP/M Betriebssystem 


und tippen Sie ED DIN.ASM ein. 
Der Editor meldet sich mit dem Be¬ 
reitschaftszeichen 
Geben Sie nun I für Einfügen ein 
und tippen das Listing ein. Wenn 
Sie damit fertig sind, geben sie 
CONTROL-Z ein und dann E um 
das Programm auf Diskette zu si¬ 
chern. 

Falls Ihnen das zu Umständlich ist, 
können Sie auch jeden anderen Edi¬ 
tor benutzen (z. B. TASWORD, 
TEXPACK) um das Listing einzu¬ 
geben. 

Ist das ASCII-File DIN.ASM auf Dis¬ 
kette, geben Sie unter CP/M den Be¬ 
fehl ASM DIN ein. Dieses generiert 
ein File DIN.HEX. Um das endgülti¬ 
ge Programm zu erstellen, müssen 
Sie jetzt noch den Befehl LOAD DIN 
eingeben. Dann steht Ihnen das Pro¬ 
gramm DIN.COM zur Verfügung. 
Durch eingeben von DIN wird das 
Programm gestartet und Sie haben 
eine DIN-Tastatur. 

Wolfgang Gentzsch/LM 


DIN-Tastatur unter CP/M 2.2 # 

Deutsche Umlaute und Tastenbelegung 
unter CP/M 2.2 auf dem CPC 464/664 
; « 

fCopyright (C) Wo 1fgang Gentzsch 1985 * 

l 

fBetriebssystem Call’s 


BB3g = 

repeat 

equ 

0bb39h 

;KM 

SET 

REPEAT 

BB27 = 

trans 

equ 

0bb27h 

;km 

SET 

TRANSLATE 

BB2D == 

shift 

equ 

Obb2dh 

;KM 

SET 

SHIFT 
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BB33 = 

control 

equ 

0bb33h 5KM SET CONTROL 


BDD3 = 

M 

ector 

equ 

0bdd3h ITXT WRITE CHAR 




System 

Adressen 



B700 = 

t 

,pa equ 

0b700h 

;Treiber dort ablegen 


I34E = 

matrix 

! 

equ 

0134eh ;TXT GET MATRIX 


0100 


org 

OlOOh 

;TPA Start 




Tastaturwiederholungen einstellen 




FF = erlaubt 00 = nicht erlaubt 




AKKU = 

Tastennummer 



0100 06FF 


mvi 

b,0f.fh 



0102 3E44 


mvi 

a,44h 

iTaste 'TAB* 


0104 CD3gBB 


cal 1 

repeat 



0107 06FF 


mvi 

b,0ffh 



0109 3E12 


mvi 

a,12h 

1 Taste 'ENTER’ 


OIOB CDBQBB 


ca 11 

repeat 





;Tasten 

neu belegen 





;a = Tastennummer b = 

neue Uebersetzung 


OIOE 21FC01 


Ixi 

h,tasten 



0111 0610 


mvi 

b,10h 

;16 Tasten neu belegen 


0113 C5 


loop 

push 

b pAnzahl auf Stack 


0114 7E 


mov 

a, m 

;Akku mit Tastennumraer laden 


0115 23 


inx 

h 



0116 46 


mov 

b, m 

pbelegung ohne Shift 


0117 F5 


push 

psw 

pTastennummer auf Stack 


0118 E5 


push 

h 

{Adresse der Tabelle retten 


0119 CD27BB 


cal 1 

trans 

;KM SET TRANSLATE 


OllC El 


pop 

h 

;Tabellen-Adresse zufueck 


OllD Fl 


pop 

psw 

{Tastennummer zurueck 


OllE 23 


inx 

h 



OllF 46 


mov 

b, m 

{mit Shift 


0120 F5 


push 

psw 



0121 E5 


push 

h 



0122 CD2DBB 


cal 1 

shi f t 

{KM SET SHIFT 


0125 El 


pop 

h 



0126 Fl 


pop 

psw 



0127 23 


inx 

h 



0128 46 


mov 

b, m 

{mit Control 


0129 E5 


push 

h 



012A CD33BB 


cal ( 

contro1 

;KM SET CONTROL 


012D El 


pop 

h 



012E 23 


inx 

h 



012F CI 


pop 

b 

{Anzahl der Tasten 


0130 05 


der 

b 

{eine weniger 


0131 78 


mov 

a, b 



0132 FEOO 


epi 

00 h 

{fertig? 


0134 C21301 


jnz 

f 

9 

9 

1 oop 

{wenn nicht, weiter 
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;Zeichentreiber im Speicher ablegen 



;Der Bereich 

B700H - BeOOH wird 

vom CP/M nicht benutzt! 

0137 

215201 

Ixi 

h,treiber «Tabelle 

des Neuen Treibers 

013A 

1100B7 

Ixi 

d, tpa 

«dort wird er abgelegt 

013D 

D5 

push 

d 

«wird dem Betriebssystem 





;uebergeben 

013E 

06AA 

mvi 

b,tend-treiber 

«laenge des Treibers 

0140 

7E 

Idir 

mov a,m 

«Byte aus Treiber lade 

n 

0141 

12 

stax 

d 

;im TPA neu ablegen 

0142 

23 

inx 

h 


0143 

13 

inx 

d 


0144 

05 

der 

b 


0145 

78 

mov 

a, b 


0146 

FEOO 

epi 

00h 

«alles verschoben ? 

0148 

C24001 

jnz 

Idir 

;sonst wiederholen 

014B 

El 

pop 

h 

;HL wird DE 

014C 

22D4BD 

shld 

vector+l ;TXT WEITE CHAR patch 

014F 

C30000 

jmp 

0000h 

«Warmstart CCP 

0152 

E5 

• 

f 

treiber 

push h 

iwird TXT GET MATRIX u 

ebergeben 




0153 

2162B7 

Ixi 

h,tpa+para-treiber 


0156 

FE40 

epi 

40h 

;§? 

0158 

37 

stc 


»Carry-Flag an 

0159 

CA4E13 

jz 

matrix 

«ins Betriebssystem 

015C 

216AB7 

Ixi 

h,tpa+sz-treiber 


015F 

FE7E 

epi 

7eh 


0161 

37 

stc 



0162 

CA4E13 

jz 

matrix 


0165 

2172B7 

Ixi 

h,tpa+dach-treiber 


0168 

FE5E 

epi 

5eh 


016A 

37 

stc 



016B 

CA4E13 

jz 

matrix 


016E 

217AB7 

Ixi 

h,tpa+kae-treiber 


0171 

FE7B 

epi 

7bh 


0173 

37 

stc 



0174 

CA4E13 

jz 

matrix 


0177 

2182B7 

Ixi 

h,tpa+gae-treiber 


017A 

FE5B 

epi 

5bh 


017C 

37 

stc 



017D 

CA4E13 

jz 

matrix 


0180 

218AB7 

Ixi 

h,tpa+koe-treiber 


0183 

FE7C 

epi 

7ch 


0185 

37 

stc 



0186 

CA4E13 

jz 

matrix 


0189 

2192B7 

Ixi 

h,tpa+goe-treiber 


oiec 

FE5C 

epi 

5ch 


O10E 

37 

stc 



018F 

CA4E13 

jz 

matrix 


0192 

219AB7 

Ixi 

h,tpa+kue-treiber 


0195 

FE7D 

epi 

7dh 


0197 

37 

stc 



0198 

CA4E13 

jz 

matrix 


019B 

21A2B7 

Ixi 

h,tpa+gue-treiber 
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019E 

FE5D 

cpi 

5dh 


OIAO 

37 

stc 



OlAl 

CA4E13 

jz 

matrix 




Berechnen der Zeichenmatrix im ROM 




Reg. HL 

zeigt auf entsprechende Matrix im ROM 


01A4 

D5 

push 

d »wird benoetigt 

01A5 

110038 

1 xi 

d,3800h ;Tabelle im 

ROM 

01A8 

6F 

mov 

l,a »'Zeichen in 

Akku 

01A9 

2600 

mvi 

h,00h 


OlAB 

29 

dad 

h 


OIAC 

29 

dad 

h 


OIAD 

29 

dad 

h 


OIAE 

19 

dad 

d 


OlAF 

Dl 

pop 

d 


OlBO 

B7 

ora 

a 


OlBl 

C34E13 

jmp 

matrix 




Tabe1le 

der neuen Zeichen 


01B4 

3E60386C38] 

para 

db 3eh,60h,38h,6ch,38h,Och,Of8h,00h 

OlBC 

386C6C7C66SZ db 

38h,6ch,6ch,7ch,66h,66h,6ch,60h 


01C4 

386CC60000dacb 

db 38h,6ch,0c6h,00h,00h,00h,00h,00h 

OlCC 

0066003E66kae db 

00h,66h,00h,3eh,66h,66h,3bh,00h 


01D4 

663C66667Egaedb 

66h,3ch,66h,66h,7eh,66h,66h,00h 


OIDC 

0066003C66koedb 

00h,66h,00h,3ch,66h,66h,3ch,00h 


01E4 

C67CC6C6C6goedb 

0c6h,7ch,Oc6h,0c6h,Oc6h,0c6h,7ch,00h 


OIEC 

0066006666kuedb 

00h,66h,00h,66h,66h,66h,3ch,00h 


01F4 

6600666666guedb 

66h,00h,66h,66h,66h,66h,3ch,00h 


OlFC 

= 

9 

tend 

equ $ 




t 

»Hier beginnt die Tabelle der neuen Tastenbelegung 




9 

;l.Byte 

= Tastennummer 




;2.Byte 

= Zeichen ohne Shift 




;3.Byte 

= Zeichen mit Shift 




;4.Byte 

= Zeichen mit Control 


OlFC 

1C7B5B1B 

i 

tasten 

db Ich,7bh,5bh,Ibh 


0200 

1A7D5D1D 

db 

lah,7dh,5dh,Idh 


0204 

1D7C5C1C 

db 

Idh,7ch,Sch,Ich 


0208 

197E3F00 

db 

19h,7eh,3fh,00h 


020C 

2B7A5A1A 

db 

2bh,7ah,Sah,Iah 


0210 

47795919 

db 

47h,79h,S9h,19h 


0214 

39334000 

db 

39h,33h,40h,00h 


0218 

185E6000 

db 

18h,Seh,60h,00h 


021C 

112B2A00 

db 

llh,2bh,2ah,00h 


0220 

1323271E 

db 

13h,23h,27h,leh 


0224 

163C3E00 

db 

16h,3ch,3eh,00h 


0228 

1E2D5F1F 

db 

leh,2dh,5fh,Ifh 


022C 

20303D00 

db 

20h,30h,3dh,00h 


0230 

272C3B00 

db 

27h,2ch,3bh,00h 


0234 

1F2E3A00 

db 

lfh,2eh,3ah,00h 


0238 

29372F00 

db 

29h,37h,2fh,00h 


023C 


t 

end 


■ 
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Die zufeite Hüsldilieit 

für DIN.COM 


Wolfgang Gentzsch, der Pro¬ 
grammautor des vorhergehenden 
Artikels hat mit seinem Programm 
bestimmt vielen Lesern einen Ge¬ 
fallen getcm. Schwierigkeiten der 
Erzeugung von DIN.COM können 
aber bei CPC-Besitzem auftreten, 
die bisher noch wenig mit CP/M 
gearbeitet haben aber trotzdem 
dieses File abspeichem wollen. 
Deshalb hat ComputerSchau mal 
wieder in die Trickkiste gegriffen. 
Erzeugen wir dieses File doch ein¬ 
fach von Basic aus. 


Etwas „untertrieben“ habe ich in 
obigen Vorspann. Denn mit Basic 
alleine schafft man es auch noch 
nicht so ohne weiteres. Aber mit 
dem, von den Grundlagenartikeln 


schon bekannten Maschinenpro¬ 
gramm SECTOR klappt es, wenn 
man etwas trickst, ganz hervorra¬ 
gend. Dazu braucht man nun kein 
Textverarbeitungsprogramm und 
auch nicht den unkonfortablen CP/ 
M-Editor sondern das erzeugende 
Programm ist ein normales Basicli- 
sting. Aber mit ein paar kleinen 
Tricks, die es in sich haben. 

Wie Ihnen sicherlich bekannt ist, 
kann man Maschinenprogramme 
als sogenannte Datastatements in 
Basicprogrammen ablegen und 
durch den Programmlauf in die ent¬ 
sprechenden Speicherstellen po- 
ken. Ist dieser Vorgang beendet, 
dann können die Maschinenpro¬ 
gramme auch als Binärfile abgespei¬ 
chert und von den Basicprogram¬ 
men eingelesen werden. 


Der Header ist das Prablem 

Mit einem Programm vom Typ 
.COM ist dies aber nicht so ohne 
weiteres möglich. Versuchen Sie ru¬ 
hig einmal ein COM-File als Binärfi¬ 
le zu laden, es geht nicht. Erinnern 
Sie sich noch an das Problem des 
Lesers, der Eproms brennen wollte? 
Der Grund dieser Tatsache ist, daß 
bei Binärfiles nicht nur der reine 
Maschinencode auf der Disk abge¬ 
legt wird, sondern diesem ein Hea¬ 
der, also ein Vorspann (mit Informa¬ 
tionen für den CPC selbst) voran- 
slehl. COM-Files dagegen sind 
„headerlos“. Es ist nun aber nicht 
möglich, mit den normalen Befeh¬ 
len für den Abspeichervorgang hea¬ 
derlose Files mit dem Extend COM 
zu erzeugen. Deshalb müssen wir 


cc 

(t 

o 

<0 
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einen direkten Diskettenzugriff 
durchführen. Dieser Zugriff ist wie 
Ihnen schon bekannt mit SECTOR 
möglich. Was ist also alles zu tun, 
um mittels dieser Maschinenrouti¬ 
ne das gewünschte File zu erzeu¬ 
gen? Nun als erstes brauchen wir 
zunächst einmal die Daten von DIN- 
.COM. Dies habe ich für Sie schon 
erledigt, indem ich mittels einer 
modifizierten Version des Program¬ 
mes READER, die Daten in den Be¬ 
reich ab &9000 eingelesen hatte. Die 
Daten von DIN.COM standen nun 
im Speicher. 

Vorher hatte ich mir aber den File¬ 
eintrag dieses Programmes näher 
angesehen und festgestellt, daß drei 
Records für ihn benötigt werden. 
Dies bedeutete, daß ein Sector für 
das Programm ausreicht. Nachdem 
ich die Daten im Speicher hatte, 
nahm ich meinen DATA-Generator 
und ließ mir ein Datalisting zeigen. 
Eine Generierung von DIN.GOM ist 
damit aber noch nicht möglich, 
denn beim Abspeichern als Binär¬ 
file hat man wieder den Header, an 
dem sich GP/M „verschluckt“. Also 
muß ein anderer Weg gegangen 
werden. 


Bitte Ustins ansehen 

Um dies nun detailliert aufzuzei¬ 
gen, sollten Sie sich beim Lesen des 


nun folgenden auch immer wieder 
das Listing COMDIN betrachten. In 
den Zeilen bis 150 steht nichts au¬ 
ßergewöhnliches. Diese Zeilen dürf¬ 
ten für Sie „Klartext“ sein. 

Die Zeilen 160 und 170 dienen da¬ 
zu, Sie darauf aufmerksam zu ma¬ 
chen, daß Sie eine Diskette im Sy¬ 
stemformat einlegen sollen, denn 
unter CP/M können Sie mit Data- 
only-Disketten wenig anfangen. 

Und nun kommen bereits die ersten 
Tricks in den Zeilen 180 bis 210. 
Durch OPENOUT“din.com” und 
den nachfolgenden Printbefehlen 
wird dafür gesorgt, daß ein Eintrag 
dieses Namens ins Inhaltsverzeich¬ 
nis der Diskette erfolgt und auch 
irgendwelche Zeichen in das eigent¬ 
liche File geschrieben werden. Der 
Schreibvorgang ist erforderlich, da¬ 
mit im Fileeintrag auch die ge¬ 
wünschte Recordlänge steht. Ist die¬ 
ser nämlich niedriger, dann wird 
später zu wenig gelesen und der 
CPC stürzt ab. Eine direkte Manipu¬ 
lation im Inhaltsverzeichnis wäre 
umständlicher gewesen, deshalb 
dieser kleine „Dreh“. Anschließend 
wird das File korrekt geschlossen. 
Nun wird schon wieder getrickst. 
Um nämlich nachher zu wissen, auf 
welchen Sektor und auf welche 
Spur wir die Daten direkt schreiben 
müssen, ist es nötig diese Informa¬ 
tionen zu kennen. Durch „öffnen“ 
des Files aber erfahren wir dies. Ab 


der Speicherstelle &A719 und den 
folgenden stehen nämlich die 
Blocknummern des eröffneten Fi¬ 
les. Da wir nur einen Sektor haben, 
können wir nun die Blocknummer 
aus dieser Speicherstelle abholen. 
Durch Zeile 210 wird diese Block¬ 
nummer in Track und Sector umge¬ 
rechnet. In der Formel zur Umrech¬ 
nung weist die Zahl 18 daraufhin, 
daß bei CP/M zwei Spuren ä 9 Sek¬ 
toren reserviert sind. Der Befehl 
MOD wird vielen 464-Besitzern un¬ 
bekannt sein. Er ist in deren Hand¬ 
buch nicht erwähnt, aber trotzdem 
vorhanden. Er bewirkt, daß ein ge¬ 
rundeter Rest (Modulo) bei einer 
Teilung von Dividend durch Divi¬ 
sor gebildet wird. (Werfen Sie doch 
mal einen Blick in ein 664- oder 
6128-Handbuch!] Damit wissen wir 
nun, wohin wir mit den Daten für 
unsere deutsche Tastatur unter CP/ 
M müssen. Nun werden die Daten 
aus den Datazeilen gelesen und in 
den ab &9000 reservierten Buffer ab¬ 
gelegt. Der Rest wird dann durch 
die bekannte Maschinenroutine er¬ 
ledigt, nachdem vorher die entspre¬ 
chenden Werte für den Befehl usw. 
übergeben wurden. Das heißt diesen 
Teil kennen Sie ja schon. Am Ende 
des Programmlaufes steht das ferti¬ 
ge Programm auf der Diskette. Wie 
Sie sehen, es ist vieles machbar, 
wenn man den CPC etwas genauer 
kennt. Lothar Miede! 


L-istings COMDIN - erzeugt DIN-Tastatur-Programm fuer CP/M 


100 ^Comdin 

110, ^Programm um von Basic aus das File DIN^COM zu erzeugen 
120 ' 

130 MEMORY &8FFF:M0DE 2:PRINT’^Bitte die Diskette mit SECT0R.BIN einlegen^ 
140 PRINT^und dann eine Taste druecken ! ^tCALL &BB06 
150 LOAD^sector. bin", &A600 

160 PRINT:PRINT"Nun bitte Ihre CP/M Arbeitsdiskette einlegen" 

170 PRINT"und eine Taste druecken !":CALL &BB06 
180 0PEN0UT"din.com" 

190 PRINTM9,STRING$(128, "i^") tPRlNTil9,STRING$(128, 

200 CL0SE0UT:0PENIN"din. com":bn=PEEK(&A719) 

210 CLOSEIN:bn =bn^2-^18:track=INT(bn/9) :sector=bn MOD S+J 
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220 ' 

230 PRINT:PRINT"Nun lese ich die Daten in den Buffer 
240 a=&9000:e=&913F:zb=1000:e=e+l 

250 FOR i =a TO etREAD d$:IF LEFT$(d$, = THEN flag =1 

260 IF (flag AND ps<>VAL(d$)) THEN PRINT"Fehler in Zeile "zb+HEND 

270 IF (flag AND i=e) THEN GOTO 330 

280 IF flag THEN i=i-l:zb=zb+l!ps=0:d$=”":flag = 0:GOTO 300 
290 d$= "& "+£/# :POKE i, VAL (d$) :ps=ps + VAL (d$) : 

300 IF i < e THEN NEXT i 
310 * 

320 * Adressen fuer Maschinenprogramm 

330 aktdri vemc-StA 702:befehImc=StA622:buf fermc=S(A629:dri venmc=&A626 
340 formsemc=&A628itrackmc=&A627!mcstart=&A600 
350 • 

360 buffer$='*9000"i' Beginn des Buffers aus dem geschrieben wird 

370 form =ti40!' Da DIN.COM fuer CP/M: nur Systemformat erlaubt 1! 

360 befahl =&65:P0KE befehlmc, befahl 
390 drive=PEEK(aktdrivemc) 

400 • 

410 'Werte fuer Bufferadresse berechnen 

420 buff low=VAL(''& ''+RIGHT$ (buff er $,2)): buff hi gh=VAL ( "& •'*LEFT$ (buffer$, 2) ) 

430 • 

440 PRINT''Nun wird DIN.COM geschrieben 
450 ' :(*»*»»»**»***)(***** 

460 '»exakt einen Sektor schreiben » 

470 '»»*»»»*»*»»»»**»**»»*»»*»»»»»** 

460 seeform =form-^sector:POKE (buf ferme), buff low: POKE (buf fermc+1), buf f high 
490 POKE drivenmc,drive:POKE trackmc, track:POKE formsemc, secform:CALL mestart 
500 PRlNT''fertig ! 

510 ' 

1001 DATA 06,FF,3E,44,CD,39,BB,06,FF,3E,12,CD,39,BB,21,FC,&077B 

1002 DA TA 01,06,10, C5, 7E, 23, 46, F5, ES, CD, 27, BB, El, Fl, 23, 46, &0787 

1003 DA TA F5, ES, CD, 2D, BB, El, Fl, 23, 46, ES, CD, 33, BB, El, 23, CI, &0A2F 

1004 DA TA 05, 78, FE, 00, C2, 13,01,21,52,01,11,00, B7, D5,06, AA, Si0512 

1005 DA TA 7E, 12,23, 13,05, 78, FE, 00, C2, 40,01, El, 22, D4, BD, C3, &069B 

1006 DATA 00, 00, ES, 21,62, B7, FE, 40, 37, CA, 4E, 13,21,6A,B7, FE, Se06FF 

1007 DATA 7E,37,CA,4E, 13,21, 72, B7, FE, 5E, 37, CA, 4E, 13,21, 7A,&0663 

1008 DA TA B7, FE, 7B, 37, CA, 4E, 13,21, 82, B7, FE, SB, 37, CA, 4E, 13, &07A 7 

1009 DATA 21,6A,B7,FE,7C,37,CA,4E, 13,21,92,B7,FE,5C,37,CA,&0803 

1010 DATA 4E, 13,21,9A,B7, FE, 7D, 37, CA, 4E, 13,21, A2,B7, FE, 5D, &0785 

1011 DATA 37,CA,4E,13,D5,11,00,38,6F,26,00,29,29,29,19,D1,&047A 

1012 DA TA B7, C3, 4E, 13, 3E, 60, 38, 6C, 36,0C, F6,00, 38, 6C, 6C, 7C, Sc05E5 

1013 DA TA 66, 66, 6C, 60, 36, 6C, C6, 00,00,00,00, 00,00, 66,00, 3E, &03A6 

1014 DA TA 66, 66, 3B, 00, 66, 3C, 66, 66, 7E, 66, 66,00,00, 66,00, 3C, &0461 

1015 DA TA 66, 66, 3C, 00, C&, 7C, C6, C6, C6, C6, 7C, 00,00, 66,00, 66, i06AA 

1016 DA TA 66, 66, 3C, 00, 66, 00, 66, 66, 66, 66, 3C, 00, IC, 7B, SB, IB, &044F 

1017 DATA lA, 7D, 5D, ID, ID, 7C, 5C, IC, 19, 7E, 3F, 00,2B, 7A, 5A, lA, &0411 

1018 DATA 47, 79, 59,19, 39, 33, 40,00,16,5E, 60,00,11,2B, 2A, 00, &031A 

1019 DA TA 13,23, 27, lE, 16, 3C, 3E, 00, lE, 2D, 5F, IF, 20, 30, 3D, 00, &0261 

1020 DATA 27, 2C, 3B, 00, IF, 2E, 3A,00,29, 37,2F, 00,00,00,00,00, M1A4 
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NID$, die zweite 
Nögiichkeit mH CP( 464 


Auch bei diesem Befehl schweigt 
sich das Handbuch des CPC 464 
teilweise aus. Zwar wird die nor¬ 
male Anwendung des Befehles er¬ 
läutert, aber dieser Befeld ist noch 
viel stärker und mächtiger als dort 
beschrieben. Es können nämlich 
mittels dieses Befehles Teile von 
bereits existierenden Strings aus¬ 
getauscht und ersetzt werden. Ein 
entsprechendes Beispielprogramm 
zeigt allen CPC-Besitzem auf, wie 
dieser Befehl eingesetzt werden 
kann und auch ivas er bewirkt. 

Da das Programm aber einige 
identische und auch einige fast 
übereinstimmende Basiczeilen 
beinhaltet, wird auch gleich die 
überaus komfortable Kopiertech¬ 
nik mittels des COPY-Cursors be¬ 
schrieben. 

Diese nun aufgezeigte „Betriebs¬ 
technik“ des Befehles MID$ hat ge¬ 
genüber anderen Methoden den 
Vorteil, daß keine „MüU“-Strings 
anfallen und dadurch die von vie¬ 
len so gefürchteten Wartezeiten der 
sogenannten „Garbage collection“, 
also der „Müllstringbeseitigung“ 
während des Programmlaufes redu¬ 
ziert werden können. Da das Pro¬ 
gramm mittels der Windowtechnik 
arbeitet, können auch hier viele Le¬ 
ser nachsehen, wie diese program¬ 
miert und gehandhabt werden. Aber 
auch noch weitere kleine Kniffe 
sind in diesem Programm enthalten, 
die für andere Programme sinnvoll 
sein können. 

Die Pragiammbeschreibung 

In Zeile 120 wird der Mode 2, also 
auf 80-Zeichendarstellung geschal¬ 
tet. Außerdem werden gleich Varia¬ 
ble definiert, die im Programmlauf 
des öfteren auftreten. Wie zu sehen 


ist, sind zwei dieser Variablen 
Adressen von Firmware-Routinen. 
Diese Definition hat den Vorteil, 
daß man nicht bei jedem Aufruf ei¬ 
ner derartigen Routine im Firmwa¬ 
re-Handbuch nachschlagen muß, 
welche Adresse nun zu program¬ 
mieren ist. Außerdem sind während 
der Programmerstellung die Varia¬ 
blen invers oder warte leichter zu 
merken als vierstellige hexadezima¬ 
le Zahlen. 

Einmal nachgesehen im Firmware¬ 
handbuch, den Routinen leicht 
merk- und identifizierbare Namen 
zugewiesen, die ersten Basiczeilen 
damit versehen und einiges geht 
leichter. Auch das Lesen des Pro¬ 
grammes ist dadurch sehr viel einfa¬ 
cher. Ich habe mir für meine Pro¬ 
grammierarbeiten ein Grundpro¬ 
gramm erstellt, welches einige die¬ 
ser Routinen enthält. Dieses lade 
ich mir hei Programmierbeginn ein. 
Diese Methode hat für mich den 


Vorteil, daß die gebräuchlichen Na¬ 
men der Routinen immer gleich 
sind und sich mir außerdem im 
Laufe der Zeit einprägen und ich 
wesentlich schneller programmie¬ 
ren kann. Ist das Programm fertigge¬ 
stellt, wird der überflüssige Teil 
einfach wieder entfernt. 

Die Zeilen 130 und 140 legen die 
Fenster für die Ausgaben fest. Die 
erforderlichen Erklärungen können 
Sie Ihrem Handhuch entnehmen. 
Beachten Sie aber, daß in diesem 
Programm kein Window mit der 
Nummer Null definiert wurde. 

In Zeile 160 wird nun bereits der 
gesamte Bildschirm invertiert und 
auch gelöscht, denn erst dann ist 
wirklich die Invertierung (Aus¬ 
tausch der Farben für PEN und PA¬ 
PER) durchgeführt. 

Die Zeilen 170 bis 190 bewirken 
eine Textausgabe in Window Null. 
Da bei diesem Programm eine Wie¬ 
derholung gleicher bzw. stark ähnli- 
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eher Abläufe vorkommt, war es am 
einfachsten, diese Teile mittels der 
„Kopiertechnik“ zu vervielfältigen. 
Dies betrifft beispielsweise die Zei¬ 
len 200, 300, 460 oder auch 220, 
340, 480. Da ich bei vielen Gesprä¬ 
chen mit Lesern immer wieder fest¬ 
stellen konnte, daß viele CPC-Besit- 
zer diese Kopiertechnik nicht in 
vollem Umfange beherrschen, will 
ich nun, da das Programm sonst kei¬ 
ne großen Besonderheiten mehr 
beinhaltet, näher auf diese Technik 
eingehen. 

Die Kopierteihnik 

Bei normalen Arbeiten mit den 
CPC’s sieht man immer nur einen 
Cursor, der an der Stelle zu sehen 
ist, an welcher die nächsten Einga¬ 
ben erfolgen. Dieser Cursor kann 
normalerweise mittels der Cursor¬ 
steuertasten auf jede (mögliche) be¬ 
liebige Bildschirmposition gebracht 
werden. Wird dann die COPY-Taste 
betätigt, dann werden die entspre¬ 
chend unter dem Cursor stehenden 
Zeichen übernommen. Ändert man 
nun beispielsweise eine Nummer 
einer auf dem Bildschirm stehen¬ 
den Basiczeile um sie zu duplizie¬ 
ren, dann wird bei Kopierversuchen 
akustisch mitgeteilt, daß dies vom 
CPC nicht akzeptiert wird. Nun be¬ 
steht die Möglichkeit, da sich der 


Cursor ja nicht mehr nach rechts 
weiterbewegen läßt, durch Betäti¬ 
gung der RETURN- oder ENTER-Ta- 
ste diese Situation zu meistern. 

Der CPC hat aber diese Zeile nicht 
angenommen und teilt dies durch 
„Line does not exist“ mit. Dem CPC 
wurde nämlich eine Zeilennummer 
mitgeteilt, die in diesem Falle ja 
noch gar nicht existiert. Fährt man 
nun mit dem Cursor wieder auf den 
Zeilenanfang dieser Zeile und betä¬ 
tigt dann (bis zum Ende des zu ko¬ 
pierenden Teiles] die COPY-Taste, 
dann kann diese Zeile übernommen 
werden. Aber diese eben beschrie¬ 
bene Methode ist nicht die wirkli¬ 
che Kopiertechnik. Viel besser und 
auch wesentlich komfortabler ist 
die nachfolgend beschriebene Me¬ 
thode. 

Am besten ist es, wenn Sie sich ein 
kleines Programmlisting auf dem 
Bildschirm ausgeben lassen, um 
gleich praktisch alles mitvollziehen 
zu können. 

Nach der Listingausgabe steht der 
Cursor unter dem „R“ von Ready. 
Damit Sie nun nicht Ihr Listing zer¬ 
stören, geben Sie als erstes eine Zif¬ 
fer ein, die über der ersten Ziffer der 
höchsten Zeilennummer (also der 
zuletzt ausgegebenen) liegt. Wohl¬ 
gemerkt nicht eine komplette Zei¬ 
lennummer, sondern nur die erste 
Ziffer. 

Nun halten Sie die SHIFT-Taste ge- 
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drückt und betätigen die Cursor- 
Steuertaste Pfeil nach oben. Sie 
werden daraufhin feststellen kön¬ 
nen, daß nun plötzlich ein zweiter 
Cursor auf dem Bildschirm zu se¬ 
hen ist. Dies ist der COPY-Cursor. 
Solange Sie nun die SHIFT-Taste 
gedrückt halten, können Sie auch 
diesen mittels Cursorsteuerung frei 
über den Bildschirm bewegen. 
Setzen Sie diesen Copyeursor nun 
z. B. auf die zweite Ziffer der letzten 
Basiczeilen-Nummer. Nun lassen 
Sie die Shift-Taste wieder los und 
betätigen die COPY-Taste. Wie Sie 
sehen, wird nun jeweils das Zei¬ 
chen unter dem Copyeursor an die 
Position des Normalcursors kopiert. 
Wenn Sie dies nun his zum Ende 
der Basiczeile durchführen, haben 
Sie mit Ausnahme der Zeilennum¬ 
mer eine völlig identische Basiczei¬ 
le auf dem Bildschirm stehen. 
Durch Betätigung der ENTER-Taste 
übernehmen Sie dann diese Basic¬ 
zeile in Ihr Programm. 

Dies ist aber nur die einfachste Art, 
dieses Kopiertechnikeinsatzes. Sie 
können nämlich auch verschiedene 
Basiczeilen oder auch Teilinhalte 
beliebig bis zur maximal erlaubten 
Zeilenlänge zusammenfügen. Sie 
brauchen lediglich wieder die 
SHIFT-Taste gedrückt zu halten 
und können nun wieder mittels der 
Gursorsteuertasten „umeinander- 
fahren“ um dann wieder an der von 
Ihnen gewünschten Stelle mit dem 
Kopiervorgang fortzufahren. 

Wenn Sie diese Technik etwas ge¬ 
übt haben, dann werden Sie von 
dieser Möglichkeit so begeistert 
sein, daß Sie bei fast allen Arbeiten 
am Computer darauf zurückgreifen. 
So z. B. auch beim Laden von Pro¬ 
grammen von Diskette, nachdem 
Sie sich das Inhaltsverzeichnis ha¬ 
ben ausgeben lassen. Die CPC-Mit- 
teilung daß ein Programm nicht ge¬ 
funden werden kann, weil man sich 
bei der Filenameneingabe vertippt 
hat, gehört damit der Vergangenheit 
an. Auch die „Verschönung“ von 
Programmlistings nach Beendigung 
der eigentlichen Programmierarbeit 
wird damit zu einem Kinderspiel. 
Übersichtliche und leicht lesbare 
Listings werden Ihnen diese kleine 
Lernmühe, die Sie anfangs erbrin¬ 
gen müssen „vergelten“. 

Lothar Miede! 
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Liistings M1D$ 


100 '*### Die String-Einfuegung wittels M1D$ **»* 

110 ' 

120 MODE 2:j=10:invers=giBB9C:warte=tiBB06:t$=" Bitte eine Taste druecken" 
130 UINDOU gl,l,80,l,8:UINDOU 42,1,80,25,25 
140 UINDOU 43,1,80,11,24:UINDOU 44,1,80,5,9 
150 • 

160 CALL invers:CLS40 

170 PRINT"Dieses Programm zeigt, wie mittels der MID$-Funktion, Teile von 
180 PR!NT"von existierenden Strings ersetzt werden koennen, 

190 PRlNT^Diese Hoegliciikeit ist im Handbuch des CPC 464 nicht beschrieben, " 
200 CLS42:PRINT42,t$!CALL warte:CLS 43 

210 - - 

220 CLS421CLS 44:PR1NT43,, 1 :PRINT43, "Beispiel 1:" 

230 PR1NT43, "Ausgangsstring", "Insertstring",, "Ergebnisstring" 

240 ' 

250 CLS44:PR1NT 44, "Voraussetzungen und Funktion: 

260 PRINT 44,"x$=' *****»»**i>*»**:(" :b$="abc> • 

270 PRINT 44, "PRINT x$,b$,, ; :MID$(x$,3,3)=b$:PRINT x$ 

260 ' 

290 x$="»xxxx«»xxxxxxx":b$="abc" 

300 PRINT43, x$, b$,, / :HID$(x$, 3, 3)=b$:PRlNT43, x$ 

310 ' 

320 CLS42:PRINT42,t$:CALL warte:CLS 43 

330 - - 

340 CLS42:CLS 44:PRINT43,,!:PRINT43, "Beispiel 2:" 

350 PRINT43, "Ausgangsstring", "Insertstring",, "Ergebnisstring" 

360 ' 

370 CLS44:PRINT 44, "Voraussetzungen und Funktion: 

380 PRINT 44, "x$=’'xxx*xxx*x*xxxx< ':FOR i = 1 TO j 
390 PRINT 44,"xl$=x$:x2$=RIGHT$(STR$(INT(RND»9+l)),l) 

400 PRINT 44,"MlD$(xl$, i, l)=x2$:PRINT x$, x2$,, xl$ :NEXT I 
410 • 

420 x$="xx*xxxxxxx»»*x”:FOR i = 1 TO j 
430 xl$=x$:x2$=RIGHT$(STR$(INT(RND*9-H)), 1) 

440 MID$(xl$,i, l)=x2$:PRINT43,x$,x2$, ,xl$:NEXT i 
450 ' 

460 CLS42:PRINT42, t$:CALL warte:CLS 43 

470 • -- 

480 CLS42:PRINT43,,;:PRINT43, "Beispiel 3:" 

490 PR1NT43, "Ausgangsstring", "Insertstring",, "Ergebnisstring" 

500 • 

510 CLS44:PR1NT 44, "Voraussetzungen und Funktion: 

520 PRINT 44,"x$=* 'x*x*x»**xx**»*'':FOR i = 1 TO j 

530 PRINT 44,"x= INT(RND*9-H) :xl$=RIGHT$(STR$(x), 1) :PRINT x$,xl$,,:: 

540 PRINT 44,"MID$(x$,X,l)=xl$:PRINT x$:NEXT i 
550 ' 

560 x$="»»»****xx*xx«*":FOR i = 1 TO j 

570 x = INT(RND*9*l) :xl$=RIGHT$(STR$(x), 1) :PRINT43,x$,xl$,, / 

560 HID$(x$,x, 1 )=x1$:PRINT43,x$:NEXT I 

590 CLS42:PRINT42,t$:CALL warte:CALL invers:CLS 40 
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DE($ auf dem (K 464 


Obwohl dem Schneider-CPC-464 
€dlerseits Lobeshymnen bezüglich 
seines starken Basic-Befehlssaizes 
gesungen werden, daif nicht ver¬ 
gessen werden, daß kleine Miß¬ 
klänge bei der „Melodie” mit- 
schwingen können. So gut die Pro¬ 
grammierer der Firmware auch ge¬ 
arbeitet haben, kleine und durch¬ 
aus vermeidbare Flüchtigkeitsfeh¬ 
ler sind leider im Basicinterpreter 
vorhanden. Verschiedene, mir be¬ 
reits bekannte Fehler wurden dann 
bei den Nachfolgemodellen wieder 
„ausgebügelf. Dies kann dann be¬ 
reits zu Kompatibilitätsproblemen 
führen. 

Einige kleine Fehler sind nie so 
richtig bekannt geworden. Bei¬ 
spielsweise kann es bei verschach¬ 
telten Schleifen und der vorherigen 
Festlegung der Lauf variablen durch 
DEFINT Vorkommen, daß das 
Schleifenziel überlaufen wird. Das 
gleiche Programm läuft aber auf 
dem CPC 664 und CPC 6128 völlig 
fehlerfrei. Es ist also durchaus mög¬ 
lich, daß trotz vermeintlicher syn¬ 
taktisch richtig eingesetzter Befehle 
das Programm auf einem CPC 464 
nicht korrekt abläuft, auf den bei¬ 
den „Brüdern“ aber völlig problem¬ 
los „spielt“ und zu richtigen Ergeb¬ 
nissen führt. Im obengenannten 
„Schleifenproblem“ half bereits das 


Weglassen der DEFINT-Anweisung. 
Wer auf derartige Probleme stößt, 
sollte um anderen CPC-Besitzern 
mühevolles Suchen zu ersparen, 
solche kleinen „bugs“ und am be¬ 
sten natürlich auch die Abhilfe, der 
einen oder anderen Fachzeitschrift 
mitteilen, damit durch deren Veröf¬ 
fentlichung die Informationen ei¬ 
nem möglichst großen Kreis von 
CPC-Besitzern bekannt werden. 
Aber auch andere „Problemchen“ 
sind noch nicht ausreichend be¬ 
kannt, weshalb ich hier gleich auf 
den ersten Punkt dieser Art eingehe. 
Wenn man sich so wie ich, näher 
mit den CPC’s beschäftigt, läßt man 
sich irgendwann auch einmal den 
gesamten Befehlssatz des CPC’s aus¬ 
geben und stößt dann auch auf Be¬ 
fehle, die entweder im Handbuch 
überhaupt nicht aufgeführt sind, 
oder aber nur unzureichend erklärt 
werden. 

DEC$ ist einer dieser Befehle. Im 
CPC-464-Handbuch ist er zwar 
nicht aufgeführt, bei genauerer Be¬ 
trachtung des Interpreterteiles aber 
ist er zu finden. 

Für Piofis: 

ln der TOKEN-Tabelle steht er als 
Befehlswort ab &E5E6. Der entspre¬ 
chende Maschinenprogrammteil 
dieser Funktion ist ab &F8EA zu 


finden. Lange Zeit wurde auch her- 
umgerätselt, was dieser Befehl soll 
und kann. Fast alle Versuche führ¬ 
ten aber zur Meldung: SYNTAX ER¬ 
ROR. Aber wie schon gesagt, der 
Befehl ist vorhanden, aber leider 
muß dieser syntaktisch falsch einge¬ 
setzt werden. Nun aber erst einmal 
zur Klärung, was der Befehl eigent¬ 
lich bewirkt. Er ermöglicht die for¬ 
matierte Ausgabe von Dezimalzah¬ 
len, wodurch ohne großen Aufwand 
zum Beispiel bei Tabellen auch alle 
Zahlen stellenrichtig untereinander 
ausgegeben werden können. Dieser 
Befehl ist auf allen CPC’s vorhan¬ 
den, muß aber beim CPC 464 mit 
einer öffnenden Klammer mehr ver¬ 
sehen werden als eigentlich erfor¬ 
derlich. Wie dieser Befehl zum Ein¬ 
satz kommen kann, zeigt das nach¬ 
folgende kleine Programmlisting 
anhand zweier Beispiele sehr deut¬ 
lich. Besitzer der CPC 664 und 6128 
brauchen die erste „öffnende“ 
Klammer nach dem Befehlswort 
DEC$ in den Zeilen 250 und 300 
nur wegzulassen, dann läuft dieses 
Demoprogramm auch auf diesen 
Rechnern. Andererseits brauchen 
CPC-464-Besitzer bei Programmen 
für den CPC 664 oder 6128 nur eine 
zusätzliche Klammer einzufügen 
und haben dann ein derartiges Pro¬ 
gramm auch für ihren Computer an¬ 
gepaßt. Lothar Miede! 


Der Befehl DECI ist in allen CPC-ConPutern vorhanden. Leider ist 
iH Betriebssysten des CPC 464 ein Fehler^ bfodurch dieser Befehl 
bei dieseti Conputer syntaktisch falsch angeuendet werden nuss. 
Der CPC 464 verlangt oeffnend eine Klantier nehr als schliessend! 
Das nachfolgende kleine Eeispielprograim zeigt, wie es klappt: 


Beispiel 1: 

Die Zahl x: 

271.940658 

528.612386 

21.3%127 

175.138616 

657.773343 

x$ durch DEC$ geuDimen: 

271.3407 

528.6124 

21.3301 

175.1386 

657.7733 

Hardcopir des Programm- 
laufes. Dunii DEC$ können 
Zahlen formafiert 
aiisgegeben weiden. 

Beispiel 2; 



Die Zahl 123.22 

123.2200 



Der Befehl erlaubt also eine foraatierte Ausgabe ! 
Bitte auch nachsehen unter ; PRINT USING 
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Quint - Ein Spiei 
mit dem Joystick 


Eigentlich ist unser Ansinnen ja 
nicht, Ihnen Listings über Spiele 
abzudracken. Daß wir es doch ge¬ 
macht haben, hat verschiedene 
Gründe. Denken Sie nur einmal an 
Ihre Bekannten und Verwandten, 
denken Sie aber auch daran sich 
einmal etwas zu entspannen, Der- 
€irtige Programme zeigen, wenn sie 
nicht gerade in Maschinensprache 
geschrieben sind, viele Program- 
mier-Tricks die man gut in eigenen 
Programmen einsetzen kann. 

Mit ca. vier Seiten Listing und noch 
etwas Text, hoffen wir, daß wir in 


Ihren Augen den Spieleteil nicht zu 
umfangreich gemacht haben. Aber 
ab und zu sollten Sie bei aller Ernst¬ 
haftigkeit der Programmierarbeiten 
auch einmal etwas entspannen. 
Hierzu eignet sich ein Spiel be¬ 
stimmt. Spielen Sie aber nicht 
gleich in der höchstmöglichen 
Spielstufe, denn sonst bewirken Sie 
genau das Gegenteil, dann wird es 
„echt streßig“, auch bei diesem 
Spiel. Also „klein“ anfangen, wenn 
Sie entspannen wollen und ... vor 
allem auch wieder rechtzeitig auf¬ 
hören! Sonst sind Sie bald in Rich¬ 
tung Las Vegas unterwegs, um Ihrem 


Spieltrieb zu frönen. Mit diesem 
Spiel haben Sie aber vielleicht auch 
die Möglichkeit, Ihre Fmilienange- 
hörigen an den Computer zu locken, 
die bisher nicht verstanden, was Sie 
an Ihrem Computer so begeistert. 
Da der CPC keine „eingebauten“ 
Spritemöglichkeiten hat, können 
diese erst durch Zusatzprogramme 
ermöglicht werden. Programmver¬ 
öffentlichungen hierüber sind in 
verschiedenen Zeitschriften bereits 
erfolgt. 

Wer sich also darüber informieren 
will, braucht nur etwas zeitlich zu¬ 
rückliegende F achzeitschriften 

durchzublättern. Aber auch in zu¬ 
künftigen Artikeln der verschieden¬ 
sten Publikationen wird dieser The¬ 
matik bestimmt noch genügend 
Platz eingeräumt. 

Das in diesem Heft abgedruckte Pro¬ 
gramm kommt ohne Sprites aus und 
ist trotzdem optisch sogar anspre¬ 
chend. Wo die Tricks dieses Spieles 
liegen, bzw. wie die „Spielfiguren“ 
erzeugt werden, sollten Sie sich 
nach einem Abbruch des Program¬ 
mes einmal im Listing ansehen. Be¬ 
stimmt gibt Ihnen diese Art der Pro¬ 
grammierung Anregungen, die Sie 
auch bei anderen Programmen sehr 
gut verwenden können. Das Listing 
enthält die komplette Bedienungs¬ 
anleitung. Wer keinen Joystick be¬ 
sitzt kommt um ein Umschreiben 
des Programmes oder den Kauf ei¬ 
nes derartigen Eingabemediums 
nicht herum. Jens Kriese/LM 







9 1985 by Jens Kriese 

Sie befinden sich in einem alten Schloss 
und haben die Aufgabe,.einen versteckten 
Sch luessei und damit eine Zaubervase zu 
finden. 

In einer Mauer <gekennzeichnet mit 
'SUCHE HIER') werden Sie den Schluessel 
finden. Daraufhin erscheint die Uase, 
die es zu erreichen gilt... 

Doch leider werden Sie.von fallenden 
Steinen und kleinen Geistern gestoert... 

Druecke Taste ... 


X-.ls'tlTig: QUINT - Ein Spiel mit Joysticksteuerung 


100 ON ERROR GOTO 2170 
110 ON BREAK GOSUB 2110 

120 dat=0tst=0:0=0:MÜDE 1:DIM hs$(16):DIM hsdat$(16) :DIM hs(lG) 
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130 FOR 1=1 TO 16:hs$(i) = ”JENS KRIESE”:hsdat$(i) = ”120485’’:hs(i)=0iNEXT 
140 m$=CHR$(248)iDIM x(41,2S) 

150 pu=0 

160 INK 2,10,20:INK 1,17:INK 3,26:G0SUB S60:GOSUB 1070 
170 DI :wox=10:nioy=24:uox=30:uoy=24:FOR 1=1 TO 24:L0CATE 1,1 
160 PRINT" ";:NEXT 

190 LOCATE 11,12:PEN 2:PRINT"EINEN MOMENT BITTE!"}:PEN 1 
200 t=24:schl=0:st=st+l 

210 FOR 1=1 TO 40:FOR 11=1 TO 24:x(1,11)=0:NEXT:NEXT 
220 FOR 1= 2 TO 24 

230 LOCATE 12,25:PRINT" STUFE"Ist}" ":LOCATE 26,25:PRlNT"PUNKTE:"}pv} 

240 FOR 11= 1 TO st/2::RND(l)»1.4+l:x(RND(l)*39-H,l)=l:NEXT:NEXT 
250 LOCATE 11,12:PR INT" "} 

260 FOR 1= 2 TO 24:F0R 11= 1 TO 40 

270 IF x(ll,l)=l THEN LOCATE 11,1 :PRINT"J"} 

280 NEXT:NEXT 

290 LOCATE l,l:PEN 3:PRINT"I[[[[[I[IC1111ISUCHECHIERC[[[I[11[ICC1CC"} :PEN 1 
300 t=101 Ist« 10 
310 : 

320 mx=INT(RND(l)«30+9):ay=INT(RND(1)«9*15) 

330 vx=INT(RND(l)«30*9):vy=INT(RND(l)«14*9):x(vx, vy)=0 
340 sI=INT(RND(l)«20*10) 

350 IF schl=l AND mx=vx AND my=vy THEN 560 
360 LOCATE mx,my:PEN 3:PR INT a$;:PEN 1 
370 EI:EVERY 50 GOSUB 930 
380 : 

390 GOSUB 450 

400 IF mx=sl AND my=l THEN GOSUB 540 

410 IF schl=l AND b>x=vx AND my=vy THEN GOTO 560 

420 IF RND(1)>0.96 AND st>2 THEN GOSUB 660 

430 IF st>5 THEN GOSUB 700 

440 GOTO 360 

450 : 

460 DI:mxl=mx:myl=my 

470 IF JOY(0)=1 AND x(mx,my-l)=0 AND my>=2 THEN my=my-l:GOTO 520 
460 IF JOY(0)=2 AND x(mx,my+l)=0 AND my<=23 THEN my=my*l:GOTO 520 
490 IF JOY(0)=4 AND x(mx-l,my)=0 AND mx>=2 THEN mx=mx-l:GOTO 520 
500 IF JOY(0)=8 AND x(mx*l,my) =0 AND ibx<= 39 THEN mx=mx+l:GOTO 520 
510 El:RETURN 
520 : 

530 Dl:LOCATE mxl,myl:PRINT" "}:LOCATE mx,my:PEN 3:PRINT m$;:PEN l:EI:RETURN 
540 : 

550 LOCATE vx,vy:PEN 2:PRINT"\":CHR$<7)}:PEN 1:sch 1=1:RETURN 
560 : 

570 pu=pu*t:GOTO 170 
560 : 

590 SYMBOL AFTER 90 

600 SYMBOL 93,62,127,127,255,255,255,255,126 
610 SYMBOL 91,239,239,239,0,254,254,254,0 
620 SYMBOL 92,126,189,169,126, 60,24,24,126 
630 SYMBOL 123,124,254,214,254,254,127,127,85 
640 SYMBOL 125, 30,127,107,127,127,254, 254,170 
650 RETURN 
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660 : 

670 stx=lNT(RND(l)*36*l) :sty=INT(RND(l)i(22-H):lF sty-l THEN RETURN 

680 IF stx=vx AND sty=vy THEN RETURN 

690 x(stx,sty)=l:LOCATE stx, styiPRINT'^J”{tRETURN 

700 : 

710 IF st>8 THEN GOSUB 820 
720 moxl=mox:moyl=moy 

730 IF INTImoxXmx THEN mox=mox-Kst/S0) :GOTO 770 
740 IF INT(aoy)<my THEN moy^woy* (st/50) :GOTO 770 
750 IF INT(mox)>mx THEN mox=mox-(st/50}:GOTO 770 
760 IF INT(moy)>ay THEN moy=moy-(st/50) :GOTO 770 

770 IF INT(mox)-vx AND INT(moy)=vy THEN aox-woxl imoy-moyl :EIiRETURN 
760 x(mox,moy)=0!DI sLOCATE INT(moxl), INT(moyl) 

790 PRINT'* "ItLOCATE INT(wox), INT(aoy) :PEN 3SPRINT") "} :EI :PEN 1 
800 IF INT(aox)=mx AND INT(aoy)-ay THEN 950 
810 RETURN 
620 : 

630 uoxl=uoxtuoyl=uoy 

840 IF INT(uoy)>my THEN uoy=uoy-(st/50)sGOTO 880 
850 IF INT(uox)<mx THEN uox^uox*(st/50)sGOTO 680 
860 IF INT(uox)>mx THEN uox=uox-(st/50)sGOTO 860 
870 IF INT(uoy)<my THEN uoy^uoy*(st/50):GOTO 860 

880 IF INT(uox)=vx AND INT(uoy)=vy THEN uox~uoxl luoy-uoyl lEI sRETURN 
890 X(uox,uoy)-0 

900 LOCATE INT(uoxl), INT(uoyl) SPRINT" "} sLOCATE INT(uox), INT(uoy) sPEN 3 
910 PRINT"{"fsPEN isiF INT(uox)=ax AND INT(uoy)^my THEN 950 
920 RETURN 
930 s 

940 T=T-1 SLOCATE 1,25SPRINT "ZEITs”tTi" "ISRETURN 
950 s 

960 DIsCLSsGOSUB 1090SPRINT 

970 IF pu<10000 THEN PRINT"Na ja, sehr beruehmt war das nicht . ";sGOTO 1000 

960 IF pu<15000 THEN PRINT"Das war schon eine sehr gute Leistung... "f sGOTO 1000 
990 IF pu<20000 THEN PRINT"S U P E R! Eine echte Spitzenleistung..."! 

1000 PRINTsPRINT"Sie haben "}puS" Punkte erreicht." 

1010 FOR i=l TO 15sIF pu>hs(i) THEN GOSUB 1710 

1020 NEXTsPRINTsPRINT"UoIlen Sie weiterspielen ? (J oder n)" 

1030 k$=INKEY$ 

1040 IF kt="j" OR k$="J" THEN 150 
1050 IF k$="n" OR k$="N" THEN GOTO 2110 
1060 GOTO 1030 
1070 s 


1080 CLSsPEN 

' 1 

sGOSUB 

1090SGOTO 1180 



1090 PRINT" 

[[[[[ 

[[ 

[[ 

[[ 

[[ 

[[ 

[[[[[[ 

1100 PRINT" 

[[ 

[[ 

[[ 

[[ 

[[ 

[[[ 

[[ 

[[ 

1110 PRINT" 

[[ 

[[ 

[[ 

[[ 

[[ 

[[ [ 

[[ 

[[ 

1120 PRINT" 

[[ 

[[[ 

[[ 

[[ 

[[ 

[[ 

[[[ 

[[ 

1130 PRINT" 

[[[[[ 

[[[[[ 

[[ 

[[ 

[[ 

[[ 

1140 PRINT 









1150 PRINT"! 


\ 


":CHR$(250)!" 

{ 

{ 


1160 PRINT"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["; 
1170 RETURN 
1180 LOCATE 1,10 
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1190 PRINT" ";CHR$(164)1985 by Jens Kriese" 

1200 PRINT 

1210 PRINT"Sie befinden sich in einem alten Schloss"! 

1220 PRINT"und haben die Aufgabe, einen versteckten"! 

1230 PRINT"Schluessei und damit eine Zaubervase zu "! 

1240 PRlNT"finden. "I 

1250 PRINT 

1260 PRINT"ln einer Mauer (gekennzeichnet mit "! 

1270 PRINT"'SUCHE HIER') werden Sie den Schluessel "! 

1280 PRINT"finden. Daraufhin erscheint die Vase, "! 

1290 PRINT"die es zu erreichen gilt... "! 

1300 PRINT 

1310 PRINT"Doch leider werden Sie von fallenden "! 

1320 PRINT"Steinen und kleinen Geistern gestoert..."! 

1330 LOCATE 1,2S:PRINT"Druecke Taste ..." 

1340 IF INKEY$="" THEN 1340 
1350 IF dat=0 THEN GQSUB 1540 
1360 LOCATE 1,10 

1370 PRlNT"Die Kontrolle erfolgt ueber Joystick 0. "! 

1380 PRINT" 

1390 PRINT"Die fallenden Steine: ] "! 

1400 PRINT" 

1410 PRINT"Die Zaubervase: "! 

1420 PEN 2:PRINT"\"! :PEN 1 .‘PRINT" ”! 

1430 PRINT" 

1440 PRINT"Die Geister : "! 

1450 PEN 3:PRINT"} {"!:PEN l:PR INT" "! 

1460 FOR i=l TO 9 

1470 PRINT" "!:NEXT 

1480 LOCATE 1,20:PRINT"Waeh1en Sie bitte Ihre Spielstaerke "! 

1490 INPUT"(0 bis 30) >"!sps 

1500 IF sps<0 OR sps>30 THEN 1360 

1510 st=sps-l 

1520 LOCATE 1,25.‘PRINT" "! 

1530 RETURN 
1540 : 

1550 LOCATE 1,10 


1560 PRINT"Wichtig fuer das High-Score: "! 

1570 PRINT" "I 

1560 PRINT"! = Neue Datei "> 

1590 PRINT"2 = Datei besteht bereits "! 

1600 FOR i=l TO 11 .‘PRINT" "!:NEXT 

1610 a$=lNKEY$ 

1620 IF a$="l" THEN dat=1:RETURN 
1630 IF a$<>"2" THEN 1610 


1640 LOCATE 1,15:PRINT"Bitte legen Sie die Cassette/Disk mit" 
1650 PRINT"Ihren High-Score-Werten ein und druecken" 

1660 PRINT"Sie (PLAY) eine Taste... " 

1670 IF INKEY$=”" THEN 1670 

1680 OPENIN"!quinthi":FOR i= 1 TO 15 

1690 INPUT 49, hs$(i):INPUT »9, hsdat$(i):INPUT 49,hs(i) 

1700 NEXT: CLOSEIN .‘RETURN 
1710 : 


Comp uter 

Schau 


117 






1720 i=15:L0CATE 1,12:F0R w=l TO 50:n$‘INKEYf:NEXT 

1730 PRINT** "/; INPUT**NANE: **;na$ 

1740 INPUT**Datutt (z,B.230185) :**fdat$ 

1750 lNPUT**Abspelehern (J oder n)**;x$:IF x$=**n** OR x$=**N** THEN Q-1 
1760 LOCATE 1,12:IF Q=1 THEN 1610 

1770 PRINT'*Bitte legen Sie zum abspeichern Ihres **{ 

1780 PRINT**High-Scores eine Cassette/Diso ein und **} 

1790 PRINT**druecken (REC und PLAY) dann eine Taste.**; 

1800 PRINT** 

1810 FOR 1=1 TO 15 

1820 IF pu>=hs(l) THEN GOTO 1840 

1830 NEXT 

1840 FOR ii=15 TO I+l STEP -1 

1850 hs(ii)=hs(ii-l):hs$(ll)=hs$(ii-l):hsdat$(ii)=hsdat$(ii-l) 

1860 NEXT 

1670 hs<l)=pu!hsdat$(l)=dat$:hs$(I)=na$ 

1880 IF Q=1 THEN 1930 

1890 IF INKEY$=**** THEN 1890 

1900 OPENOUT**!qulnthl**:FOR 1=1 TO 16 

1910 PRINT 49,hs$(l):PRINT *9,hsdat$(1)tPRINT »9,hs(I) 

1920 NEXTtCLOSEOUT 
1930 dat=l:Q=0 
1940 LOCATE 1,1 


1950 

1960 

1970 

1980 

1990 


PRINT**HIGH [[[[[ 
PRINT** 

PRINT** 

PRINT** 

PRINT** 


[[[[ [[[[[ 
[ I [ 
[[[[[ [[[[ 

[ [ [ 

[ I [[[[[ 


**; 


**; 


2010 

2020 

2030 

2040 

2050 

2060 

2070 

2060 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 


Datum **; 


[[[[ [[[ 

[ [ I [ 

[[[[[ [ I [ 

II II 

um IUI UI 

PRINT** 

LOCATE 1,7 :PRINT**Platz Name Punkte 

PRINT** 

FOR 1=1 TO 15 

LOCATE 1,9*]: PR INT US ING **§§**;!; 

PRINT** 

LOCATE 7,9+]:PRINT LEFT$(hs$(l), 19) ; 

LOCA TE 27,9*1: PR INT hsU); 

LOCATE 35,9*1 .-PRINT LEFT$(hsdat$(I),6); 

NEXT 

FOR i=l TO 6000:NEXT:CLS:LOCATE 1,12:RETURN 


CLS:LOCATE 1,12:PRINT**Unerlaubter Abbruchversuch,** 
PRINT**Programmabbruch oder**:PRINT**ProgrammfehIer. ** 

PRINT-.PRINT CHR$( 164); **1985 by Jens Kriese** 

FOR i= 1 TO 50:NEXT 
END 

CLS-.LOCATE 1,12:PRINT**Fehlermeldung! -warscheinlich. BANDFEHLER**; 

FOR i=l TO 3000:NEXT 

RUN 
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Anhang 


Auf* 5-bei lung: Vergleichstabelle der CPC-Systemadressen 


Fragezeichen bei den Geraetetypen bedeuten, dass bisher keine entsprechenden 
Vergleichsadressen gefunden wurden. 

Fragezeichen bei der Funktion bedeuten, dass der Sinn dieser Spei oberste 1 Jen 
noch nicht eindeutig erkannt wurde. 

Speicherste]len deren Adressen bei den drei CPC*s uebereinstimmen, wurden nur 
in wenigen AusnahmefaelJen in die Tabelle aufgenommen. L. Miede! 



464 

664 

6128 

Funktion 


AB80 

A67C 

A67C 

HIMEM DEFAULT 


ABFF 

B0FF 

B0FF 

DEFAULT UPPER ROM BOUNDARY 

-1 

AC00 

AC00 

AC00 

FLAG IGNORE BLANKS 


ACIC 

AC01 

AC01 

FLAG FOR AUTO 


ACID 

AC02 

AC02 

NEU LINE 0 


ACIF 

AC04 

AC04 

STEP FOR AUTO 


AC21 

AC0G 

AC06 

OUTPUT CHANNEL 0 


AC22 

AC07 

AC07 

INPUT CHANNEL 0 


AC23 

AC08 

AC08 

POS PRINTER 


AC24 

AC09 

AC09 

UIDTH FOR PRINTER 


AC25 

AC0A 

AC0A 

POS (TAPE) 0 OF CHARS 


AC26 

AC0C 

AC0C 

FLAG FOR FIRST FOR NEXT 


AC27 

AC0D 

AC0D 

STORE FOR NEXT VARIABLE 1 


AC29 

ACH 

ACH 

STORE FOR NEXT VARIABLE 2 


AC2C 

AC12 

AC12 

ADRESS FOR NEXT LB 


AC2D 

AC13 

AC13 

ADRESS FOR NEXT HB 


AC2E 

AC14 

AC14 

USED BY UHILE/UEND 


AC30 

AC16 

AC16 

USED BY ON 


AC31 

AC17 

AC17 

USED BY ON 


AC32 

AC18 

AC18 

99999 


AC33 

AC19 

AC19 

1777? 


AC34 

ACIA 

ACIA 

LINE 0 FOR ON BREAK GOSUB 

(1) 

AC35 

ACIB 

ACIB 

LINE 0 FOR ON BREAK GOSUB 

( 2 ) 

AC36 

ACIC 

ACIC 

BASIC PC ON BREAK 


AC38 

ACiE 

ACIE 

SOUND CHANNEL 01 (BIT 0) 


AC44 

AC2A 

AC2A 

SOUND CHANNEL 02 (BIT 1) 


AC50 

AC36 

AC36 

SOUND CHANNEL 03 (BIT 2) 


ACSC 

AC42 

AC42 

TIMER BLOCK 00 


AC62 

AC46 

AC48 

IM EVENT BLOCK 00 


ACA4 

AC6A 

AC8A 

ED IT BUFFER 


ADA6 

AD8C 

AD8C 

ERROR ADRESS 


ADA8 

AD6E 

AD8E 

PC ON ERROR BREAK 


ADAA 

AD90 

AD90 

LAST BASIC ERROR 0 


ADAB 

AD92 

AD92 

CONTINUE POINTER 


ADAD 

AD94 

AD94 

BASIC PC ON STOP OR END 


ADAF 

AD96 

AD96 

ON ERROR ADRESS 


ADBl 

AD98 

AD98 

FLAG ON ERROR 


ADB2 

AD99 

AD99 

SOUND CHAN-STAT 


ADB3 

AD9A 

AD9A 

SOUND VOL‘ENV 


ADB4 

AD9B 

AD9B 

SOUND TON-ENV 


ADB5 

AD9C 

AD9C 

SOUND PERIOD 


ADB7 

AD9E 

AD9E 

SOUND NOISE 



ADB8 

AD9F 

AD9F 

SOUND VOLUME 

ADB9 

ADA0 

ADA0 

SOUND TIME 

ADBB 

ADA2 

ADA2 

ENVELOPE TABLE ADRESS 

ADBC 

ADA3 

ADA3 

SOUND ENVELOPE ADRESS 

ADCB 

ADB2 

ADB2 

FAC USED BY POUER 

ADD0 

ADB7 

ADB7 

TABELLE SKALARE VARIABLE 

AE04 

ADEB 

ADEB 

TABELLE FOR FN 

AE06 

ADED 

ADED 

TABELLE FOR ARRAYS 

AE26 

AE0D 

AE0D 

????? 

AE27 

AE0E 

AE0E 

POINTER TO BASIC STACK 

AE29 

AE 10 

AE10 

POINTER TO FN SUBPROG (1) 

AE2B 

AE12 

AE12 

POINTER TO FN SUBPROG (2) 

AE2D 

AE14 

AE 14 

SAVE FOR SEMIKOLON ON PRINT 

AE2E 

AE 15 

AE 15 

LAST DATA LINE 0 

AE30 

AE17 

AE17 

POINTER TO NEXT DATA 

AE32 

AE 19 

AE19 

TEMP STORAGE BASIC STACK POINTER 

AE34 

AEIB 

AEIB 

PROGRAMM COUNTER ON RUN 

AE36 

AEID 

AEID 

BASIC PROG COUNTER PC 

AE38 

AEIF 

AEIF 

FLAG TRON/TROFF 

AE39 

AE20 

AE20 

FLAG USED ASSEMBLING A BASIC LINE 

AE3A 

AE21 

AE21 

BASIC PROG LINE FORMAT 

AE3B 

AE22 

AE22 

USED BY DELETE LINE 0/LOyER ADR 

AE3D 

AE24 

AE24 

USED BY DELETE LINE 0/UPPER ADR 

AE3F 

AE26 

AE26 

LOAD POINTER WH ILE LOAD 

AE41 

AE28 

AE28 

LOAD MERGE FLAG 

AE42 

AE29 

AE29 

LOAD/CHAIN FLAG 

AE43 

AE2A 

AE2A 

USED BY LOAD CHAIN 

AE45 

AE2C 

AE2C 

FLAG FILE READ PROTECTED 

AE46 

AE2D 

AE2D 

NUMBER EDIT BUFFER (1) 

AE53 

AE3A 

AE3A 

NUMBER EDIT BUFFER (2) 

AESd 

AE3F 

AE3F 

NUMBER EDIT BUFFER (3) 

AE67 

AE4E 

AE4E 

NUMBER EDIT BUFFER INDEX (1) 

AE68 

AE4F 

AE4F 

NUMBER EDIT BUFFER (4) 

AE69 

AE50 

AES0 

NUMBER EDIT BUFFER INDEX (2) 

AEGE 

AE52 

AE52 

TEMP STORE FOR CHAR 

AE6F 

AE53 

AE53 

IM BUFFER UMWANDLUNG ASCII 

AE70 

AE54 

AE54 

NUMBER EDIT BUFFER INDEX (3) 

AE72 

AE55 

AE55 

ADRESS OF CALLED ROUTINE 

AE74 

AE57 

AE57 

ROM SELECTION ON CALL 

AE75 

AE58 

AES8 

SAVE HL ON CALL 

AE77 

AE5A 

AE5A 

SAVE SP ON CALL 

AE79 

AESC 

AESC 

ZONE FOR TAB 

AE7A 

AESD 

AESD 

FLAG FOR PRINT USING 

AE7B 

AESE 

AESE 

POINTER HIMEM FOR BASIC 

AE7D 

AE60 

AE60 

POINTER HIMEM FOR SYMBOL AFTER 

AE7F 

AE62 

AE62 

POINTER LOW MEMORY BOUNDARY 

AE81 

AE64 

AE64 

POINTER START OF BASIC-PRG -1 

AE83 

AE66 

AE66 

POINTER END OF BASIC-PRG 

AE85 

AE6B 

AE68 

POINTER START VAR TABLE 

AE87 

AE6A 

AE6A 

POINTER START DIM^D VAR 

AE89 

AEGC 

AEGC 

POINTER UPPER END DIM 

AE8B 

AE6F 

AE6F 

START OF BASIC STACK 

B08B 

B06F 

B06F 

POINTER BASIC STACK 

B091 

B075 

B07S 

TAPE BUFFER FLAG 

B092 

B076 

B076 

POINTER TAPE BUFFER/LOWER END 

B094 

B078 

B078 

POINTER TAPE BUFFER/UPPER END 









B096 

7777 

7777 

B098 

B07A 

B07A 

B09A 

B07C 

B07C 

B09C 

B07E 

B07E 

B0BA 

B09C 

B09C 

B0BD 

7777 

7777 

B0BF 

7777 

7777 

B0C1 

B09F 

B09F 

B0C2 

B0A0 

B0A0 

B0C3 

B0A1 

B0A1 

B0C4 

B0A2 

B0A2 

B0CS 

B0A3 

B0A3 

B100 

B82D 

B82D 

Bl 01 

B82E 

B82E 

B102 

B82F 

B82F 

Bl 04 

B831 

B831 

B105 

B832 

B832 

B187 

8884 

8884 

Bl 89 

BdBG 

B8B6 

B18B 

8888 

B8B8 

B18C 

B8B9 

B8B9 

B18E 

B8BB 

B8BB 

Bl 90 

B8BD 

B8BD 

Bl 92 

B8BF 

B8BF 

Bl 93 

B8C0 

B8C0 

B194 

B8C1 

B8C1 

B195 

B8C2 

B8C2 

Bl 96 

B8C3 

B8C3 

B1A6 

B8D3 

B8D3 

7777 

7777 

B8D5 

B1A8 

B8DS 

B8D6 

B1A9 

B8D6 

B8D7 

BlAB 

B8D8 

B8D9 

BIAA 

B8D9 

B8DA 

B1C8 

B7C3 

B7C3 

B1C9 

B7C4 

B7C4 

Bl CA 

B7C5 

B7C5 

Bl CB 

B7C6 

B7C6 

BlCC 

B7C7 

B7C7 

Bl CD 

B7C8 

B7C8 

Bl CF 

7777 

7777 

B1D7 

B7D2 

B7D2 

B1D8 

B7D3 

B7D3 

B1D9 

B7D4 

B7D4 

BlEA 

B7E5 

B7E5 

BIFB 

B7F6 

B7F6 

BIFC 

B7F7 

B7F7 

Bl FD 

B7F8 

B7F8 

BIFE 

B7F9 

B7F9 

B20C 

B6B5 

B6B5 

B20D 

B6B6 

B6B6 

B285 

B726 

B726 

B287 

B728 

B728 

B288 

B729 

B729 

B289 

B72A 

B72A 

B28A 

B72B 

B72B 


HlffEM FOR SYMBOL AFTER 
USED BY GARBAGE'COLLECT 
POINTER TO START OF STRING STACK 
STRING STACK 

TEMPORARY STRING DESCRIPTOR 
USED ON GARBAÖE COLLECT 
SAVE ON GARBAGE COLLECT 
VARTYPE 

FLOATING POINT ACU/FAC 
FAC + 1 
FAC + 2 
FAC + 3 

KL INTERRUPT SERVICE QUEUE 
KL INTERRUPT PENDING QUEUE 
KL INTERRUPT SERVICE CHAIN 
KL INTERRUPT SERVICE CLASS 
KL SAVE SP ON INTERR SERVICE 
KL TIME BYTE 0^1 
KL TIME BYTE 2-^3 
KL TINE BYTE 4 
KL FRAME FLY LIST POINTER 
KL FAST TICKER LIST POINTER 
KL POINTER TO TICK LIST 
KL SLOV TICKER COUNT 
KL SYNC EVENT QUEUE 
KL SYNC EVENT QUEUE *1 
KL EVENT CLASS 

KL TEMP STORE EXT COMMAND NAME 
KL RSX QUEUE 
????? 

KL ROM SELECT ADRESS 
KL ROM START 
KL ROM STATE TO CALL 
START OF ROM HIGH BYTE (C0) 

SCR SCREEN MODE 

SCR SCREEN START 

SCR OFFSET TO SCREEN START 

SCR BASE OF RAM FOR SCREEN 

SCR PIXELS URITE 

SCR PIXELS URITE SET JUMP ADRESS 

SCR CURRENT PIXEL BIT MAP 

SCR TIME FLASHING PERIOD 1 

SCR TIME FLASHING PERIOD 2 

SCR COLQR TABLE FLASH 1 (BOEDER) 

SCR COLOR TABLE FLASH 2 (BOEDER) 

SCR FLAG QHICH FLASH PERIOD (1 OR 2) 
SCR FLAG 

TIME COUNT/CURRENT FLASH PERIOD 

SCR FRAME FLY LIST 

TXT CURRENT TEXT STREAM 

TXT TABLE (STREAM-PARAMETER BulS) 

TXT CURSOR COLUMN/ROy 
TXT yiNDOy FLAG 

TXT ROy-yiNDOW LEFT UPPER CORNER 
TXT COLUMN-yiNDOy LEFT UPPER CORNER 
TXT ROy VINDOy RIGHT BOTTUM CORNER 


B28B 

B72C 

B72C 

TXT COLUMN-yiNDOy RIGHT BOTTOM CORNER 

B28C 

B72D 

B72D 

TXT ROLL COUNT 

B28D 

B72E 

B72E 

TXT CURSOR ENABLE FLAG (USER) 

B28E 

7777 

7777 

TXT FLAG VDU ENABLE 

B28F 

B72F 

B72F 

TXT PEN INK 

B290 

B730 

B730 

TXT PAPER INK 

B291 

B731 

B731 

TXT ADRESS OF BACK-/FOREGROUND ROUTINE 

B293 

B733 

B733 

TXT FLAG GRAPHIC CHAR URITE 

B294 

B734 

B734 

TXT FIRST CHAR OF USER MATRIX TABLE 

B295 

B73S 

B735 

TXT FLAG USER MATRIX TABLE 

B296 

B736 

B73G 

TXT START OF USER MATRIX TABLE 

B298 

B738 

B738 

TXT BUFFER FOR UNPACKED CHAR MATRIX 

B2B8 

B758 

B758 

TXT CONTROL CODE PUFFER INDEX 

B2B9 

B7S9 

B7S9 

TXT CONTROL CODE BUFFER 

B2C3 

B763 

B763 

CONTROL CODE TABLE 

B328 

B693 

B693 

GRA USER ORIGIN X 

B32A 

B695 

B695 

GRA USER ORIGIN Y 

B32C 

B697 

B697 

GRA CURSOR X 

B32E 

B699 

B699 

GRA CURSOR Y 

B330 

ß69B 

B69B 

GRA yiNDOy yiDTH X-LEFT 

B332 

B69D 

B69D 

GRA yiNDOy yiDTH X-RIGHT 

B334 

B69F 

BG9F 

GRA yiNDOy HEIGHT Y-TOP 

B336 

B6A1 

B6A1 

GRA yiNDOy HEIGHT Y-BOTTOM 

8338 

B6A3 

B6A3 

GRA PEN INK 

B339 

B6A4 

B6A4 

GRA PAPER INK 

B33A 

B6A5 

B6AS 

GRA TEMP STORE 1 

B33C 

B6A7 

B6A7 

GRA TEMP STORE 2 

B33E 

B6A9 

B6A9 

GRA TEMP STORE 3 

7777 

B6AA 

B6AA 

^9799 

B340 

B6AB 

B6AB 

GRA TEMP STORE 4 

7777 

B6AA 

B6AA 

99999 

7777 

B6AC 

B6AC 

? 7 ? 7 ? 

B342 

B6AD 

BGAD 

GRA TEMP STORE X ON DRAN 

7777 

B6AE 

B6AE 

7777 ? 

B344 

B6AF 

BGAF 

GRA TEMP STORE Y ON DRAU 

7777 

B6AE 

B6AE 

77777 

7777 

B6B0 

B6B0 

77777 

B346 

BGBl 

B6B1 

GRA TEMP FLAG 

7777 

B6B2 

B6B2 

77777 

8348 

B6B3 

B6B3 

77777 

B349 

B6B4 

B6B4 

99999 

B34C 

B496 

B496 

KM KEY NORMAL ENTRY 

B39C 

B4E6 

B4E6 

KM KEY SHIFT ENTRY 

BE3C 

B536 

BS36 

KM KEY CONTROL ENTRY 

B43C 

B586 

B586 

KM KEY REPEAT MAP 

B446 

B590 

B590 

KM KEY EXP BUFFER 

B4DE 

B628 

B62B 

KM EXPANSION STRING FLAG/COUNT 

B4DF 

B629 

B629 

KM EXP BUFFER FLAG 

B4E0 

B62A 

B62A 

KM KEYBOARD PUT BACK CHAR 

B4E1 

B62B 

B62B 

KM POINTER TO F-KEY EXP BUFFER 

B4E3 

B62D 

B62D 

KM POINTER TO END OF EXP B-^1 

B4E5 

B62F 

B62F 

KM POINTER EXP PUFFER LO-BYTE 

B4E6 

B630 

B630 

KM POINTER EXP-BUFFER HI-BYTE 

B4E7 

BG31 

B631 

KM CAPS LOCK STATE 

B4E8 

B632 

B632 

KM SHIFT LOCK STATE 

B4E9 

B633 

BG33 

KM KEY REPEAT SPEED 
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B4EA 

8634 

8634 

KM KEY STARTUP DELAY 

B4EB 

8635 

8635 

KM KEY STATE MAP 

B4ED 

8637 

8637 

CONTAINS CTRL AND SHIFT BITS 

B4F1 

8638 

8638 

JOYSTICK 2 

B4F3 

B63D 

8630 

BIT 2 = BREAK KEY 

B4F4 

B63E 

B63E 

JOYSTICK 1 

B4F5 

B63F 

863F 

KM KEY CHANGE STATE MAP 

B4FF 

8649 

8649 

KM KEY LAST CYCLE STATE MAP 

B501 

8648 

8648 

SHIFT AND CAPS BITS ? 

B509 

8653 

8653 

KM TIME COUNT FOR REPEAT SPEED 

B50A 

8654 

8654 

7999? 

B50B 

8655 

8655 

99999 

B50C 

8656 

8656 

KH BREAK ENABLE FLAG 

B50D 

8657 

8657 

KM EVENT BLOCK BREAK 

B51D 

8189 

8189 

START SOUND QUEUE CHANNEL A 

B520 

BIBC 

BIBC 

????? 

B522 

BIBE 

BIBE 

NOISE PERIOD CHANNNEL A 

B539 

8105 

BIOS 


B53C 

8686 

8686 

????? 

B53E 

8688 

8688 

77777 

B540 

B68A 

B68A 

AOR-1 KEY TRANSLATE TA8LE 

B541 

8688 

8688 

KM TRANSLATE NORMAL ENTRY POINTER 

B543 

8680 

8680 

KM TRANSLATE SHIFT ENTRY POINTER 

B545 

B68F 

B68F 

KM TRANSLATE CONTROL ENTRY POINTER 

B547 

8691 

8691 

KM REPEAT KEY POINTER TO TABLE 

B550 

BIEC 

BIEC 

SOUND FLAG 

B551 

BIED 

BlEO 

SOUND SAVE FOR AKTIVE SOUND 

B552 

BIEE 

BIEE 

SOUND CHANNEL BITS OF AKTIVE SOUND 

B554 

B1F0 

B1F0 

SOUND RENDENZVOUS BYTE 7 

B55C 

B1F8 

B1F6 

SOUND QUEUE CHANNEL A 

B59B 

8237 

8237 

SOUND QUEUE CHANNEL 8 

B5DA 

8276 

8276 

SOUND QUEUE CHANNEL C 

B60A 

82A 6 

82A 6 

SOUND AMPLITUDE ENVELOPE 

B619 

8285 

8285 

77777 

B6FA 

8396 

8396 

SOUND TONE ENVELOPE 

8600 

Bild 

8118 

CAS MESSAGE FLAG 

B801 

8119 

8119 

CAS FLAG 7 

B802 

81 lA 

81 lA 

CAS FILE TYPE ON READ 

8803 

BUB 

BUB 

CAS START ADRESS INPUT BUFFER LOV 

8805 

8110 

8110 

CAS POINTER INPUT BUFFER HIGH 

8607 

BllF 

BllF 

CAS FILE HEADER INPUT 

8800 

8071 

8071 

POINTER LOW END $-SPACE 

B80F 

8073 

8073 

POINTER UPPER BOUND S-SPACE 

8817 

B12F 

B12F 

CAS IN BLOCK NUMBER 

8818 

8130 

8130 

CAS IN LAST BLOCK FLAG 

8819 

8131 

8131 

CAS IN FILE TYPE 

881A 

8132 

8132 

CAS IN DATA LENGTH 

88 IC 

8134 

8134 

CAS IN DATA LOCATION 

88 lE 

8136 

8136 

CAS IN FIRST BLOCK FLAG 

86IF 

8137 

8137 

CAS IN USER FIELDS 

8847 

B15F 

815F 

CAS OUTPUT FILE TYPE WRITE 

8846 

8160 

8160 

CAS OUT DIRECT POINTER DATA LO 

B84A 

8162 

8162 

CAS OUT DIRECT POINTER DATA HIGH 

B64C 

8164 

8164 

CAS OUT DIRECT/FILENAME 

B85C 

8174 

8174 

CAS OUT OIRECT/BLOCK NUMBER 

8650 

8175 

8175 

CAS OUT DIRECT/LAST BLOCK FLAG 


Bd5E 

8176 

8176 

CAS OUT DIRECT/FILE TYPE 

B85F 

8177 

81 77 

CAS OUT LEN OF DATA 

8861 

8179 

8179 

CAS OUT DIRECT/DATA LOCATION 

8863 

8178 

8178 

CAS OUT DIRECT/FIRST BLOCK FLAG 

8864 

B17t 

B17C 

CAS OUT DIRECT/TOTAL LENGTH OF DATA 

8866 

B17E 

B17E 

CAS OUT DIRECT/ENTRY FOR HEADER 

B88C 

81A4 

81A4 

CAS OUT FILENAME 

B69C 

8184 

8184 

CAS OUT BLOCK NUMBER 

BB9D 

8185 

8185 

CAS OUT FILE TYPE 

B89F 

8187 

8187 

CAS OUT DATA LENGTH 

B8A1 

8189 

8189 

CAS OUT DATA LOCATION 

86A3 

8188 

8188 

CAS OUT FIRST BLOCK FLAG 

B8A4 

BIBC 

BIBC 

CAS OUT USER FIELDS LOGICAL LENGTH 

B8A6 

BIBE 

BIBE 

CAS OUT USER FIELDS ENTRY ADRESS FOR 

B6CC 

B1E4 

B1E4 

99999 

B8CD 

81E5 

B1E5 

99999 

B8CE 

B1E6 

B1E6 

????? 

7777 

B1E7 

B1E7 

99999 

B8D0 

B1E8 

BiE8 

99999 

B6D1 

B1E9 

B1E9 

7777 ? 

B6D2 

81EA 

BlEA 

99999 

8803 

81E8 

BIEB 

7777 ? 

B8DC 

8114 

8114 

EDI CURSOR ON FLAG 

B8DD 

BUS 

8115 

EDI INSERT/OVERWRITE FLAG 

B8DE 

8116 

8116 

EDI COPYCURSOR POS/COLUMN AND ROW 

88E4 

8100 

8100 

RANDOM NUMBER BYTE 0+1 

7777 

8101 

8101 

99999 

88E6 

8102 

8102 

RANDOM NUMBER BYTE 2+3 

B8E8 

8104 

8104 

FAC 1 

88ED 

8109 

8109 

FAC 2 

B8F2 

B10E 

B10E 

FAC 3 

88F7 

8113 

8113 

FLAG DEG/RAD 

8939 

8941 

8941 

INTERRUPT ENTRY RST 7 

8978 

8970 

8970 

99999 

7777 

8972 

8972 

99999 

897C 

8984 

8984 

LOW ROM OR RAM 

7777 

8980 

8980 

99999 

8981 

8989 

8989 

JP FAR CALL 

8982 

B98A 

B98A 

LOW JUMP 

8989 

89C1 

B9C1 

KL FAR ICALL 

B9BF 

89C7 

B9C7 

FAR CALL 

8A10 

BA17 

BA17 

JP TO A SIDEWAYS ROM 

8A16 

BAID 

8A1D 

CALL TO A SIDEWAYS ROM 

8A2E 

BA35 

BA3S 

FIRM JUMP LOWER ROM 

???? 

BAAS 

BAAS 

99999 

7777 

BA46 

BA46 

99999 

8A4A 

BA51 

BA51 

KL L ROM ENABLE CONT*D 

BASA 

BA58 

BASS 

KL L ROM DISABLE CONT^D 

BASE 

BASF 

BASF 

KL CURRENT UPPER ROM ENABLE 

8A68 

BA66 

BA66 

KL CURRENT UPPER ROM DISABLE 

BA72 

BA70 

BA70 

KL ROM RESTORE CONT^D 

BA7E 

BA79 

BA79 

KL SELECT AN UPPER ROM 

BA83 

BA7E 

BA7E 

KL PROBE ROM CONT^D 

BAdC 

BA87 

8A87 

KL STORE PREVIOUS ROM SELECTION 

BAA2 

BA9D 

BA9D 

KL CURR SELECTION CONT^D 

BAA6 

BAAl 

BAAl 

KL LDIR ROMS DISABLED 
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Franzis-Software macht 
aus Mensch und Compute 
ein Herz und eine Seele 


Die Diskette zum Heft! 


Sparen Sie sich Zeit und 
Ärger! 

Die Programme aus die¬ 
sem Sonderheft können 
Sie auch auf einer 3-Zoii- 
Diskette für Ihren Schnei¬ 
der-Computer erhalten. 
Das Abtippen der Pro¬ 
gramme kostet nicht nur 
Zeit und Nerven, sondern 
man macht meist auch 
noch Tippfehler, die eine 


zeitaufwendige und 
ärgerliche Fehlersuche 
zur Folge haben. 

Unter diesem Gesiohts- 
punkt hat sich die 
Diskette schnell bezahlt 
gemacht. 

Am besten bestellen Sie 
gleich die Schneider-Dis¬ 
kette zum Sonderheft! 
Bestellnummer: 0179-3 
Preis: 35 DM 


FRANZiS SOFTWARE SERVICE 
Franzis’ 

Franzis-Verlag, Software-Service, Karlstraße 37-41, 8000 München 2, 
Telex 522301, Telefax (089) 5117-379, BTX-Leitseite * 30503 # 
Telefon direkt: (089) 5117-331 


Pascal in der Methode Busch 

Nie wird der zweite Schritt vor dem ersten gemacht. Das ist der 
unbestreitbare Vorzug der „Methode Busch". Der Autor kann 
sich nur zu gut daran erinnern, wie er Pascal von Anfang an 
lernte und welche Stolperdrähte er erst einmal wegräumen 
mußte bis schließlich der Pascal-Weg mühelos gangbar war. 
Systematisch erklärt der Autor zunächst die wichtigsten Sprach- 
elemente. Diese werden anhand von praktischen Beispielen 
eingeübt und laufend wiederholt. Ein Grundwortschatz in Pascal 
entsteht. Kleine Programme werden geschrieben, die sofort 
nützlich für die praktische Arbeit sind. Das Selbstbewußtsein 
steigt. Der Neuling ist erstaunt, wie einfach, schlicht und span¬ 
nend der Autor Pascal-Unterricht gestaltet. 

Und was kann der Leser und Benutzer dieses Buches am Ende? 
Das exakte Definieren von Algorithmen hat er gelernt. Er 
beherrscht einen Basisumfang von Pascal. Grammatik und Syn¬ 
tax sind geläufig. Er hat die unbändige Lust auf mehr und der 
Karriere als Pascal-Programmierer steht nichts mehr im Wege. 


Der sichere Einstieg in Pascal 


Der leichte Weg 
zum selbständigen 
Programmieren 
in Pascal. 

Von Rudolf Busch. 



192 Seiten, 

52 Abbildungen, 
Lwstr-geb. DM 48.- 
ISBN 

3-7723-7861-7 


Franzis^ 

der große Fachverlag für angewandte Elektronik und Informatik 

Franzis-Verlag, München @ 
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Computer 













Alles über 


Mikro- 

Comou 



nc-Sondeitieft NEU 

)as BASIC-SONDERHEFT 
iasIc-Programme und Prügram- 
liertips aus ailen Anwendungs- 
iereJchen. u, a- furCommodore-, 
^pple- und MS-DOS-Rechner. In 
nc schon erschienene Beiträge 
/urden z. T. verbessert und für 
ndere Rechnertypen angepaflt, 

. B. Datenbank'Programm^ Texl- 
ditor, Expertejisyatem u. a. 
ür alle ernsthaften Anwender von 
Jomputem. 

20 Seiten, 24 DM 


Das 

rnC-MODEM-Sonderheft 
behandelt Hard- und Software zur 
Datenübertragung per Telefon - 
SchaltungstechniK von Modems. 
Überlragungs-S.oftware, Grundla¬ 
gen der Datenfamübeiiragung, 
Schnittstellen ar^ Campuiem. 
Übertrag ungsprotokolleK öffentlich 
zugängliche Datenbanken. 
Überwiegend Aufsätze aus mC. 
Für Profis und Hobbyisten. 

64 Seiten, 16 DM. 



für dorC 64 

Tm. mi ■«nM» Mim« 



UNKSCHAU-Sondertieft NEU 
Jartext für den C 64 


:in stark praxisorientierter Lehr- 
ang über das Programmieren 
es C 64 in Maschinensprache, 
las Heft ist eine überarbeitete Zu- 
ammenfassung der gleichlauten- 
len FUNKSCHAU-Serie. Neu hin- 
ugekommen ist die achtteilig 
lerie „Schach dem Video-Chip", 
lie zu einem Maschinenpro- 
iramm für hochauflüsenide Grafik 
jhrt. 

ür Anfänger. 

4 Seiten, 18 DM 



Daten- 

Kommunikation 



ELEKTRONIK-Sonderheft NEU 
Daten-Kommunikation 
Alles. Wichtige, was die 
ELEKTRONIK bisher über dieses 
Spezialgebiet sciirieb, finden 
Sie Jetzt komplett In eitlem Heft. 
Damll gibt der Franzis-Vertag allen 
Interessierten ein vielsailiges Infor¬ 
mations mittel in die Hand, das alle 
wesentlichen Aspekte der Daten¬ 
übertragung transparent macht. 
3., ergänzte Auflage. 

Für Einsteiger und „alte Hasen". 
160 Seiten. 23 DM 


Kennenlem-AnaelMit 

für eine von vier Franzis-Zeitschriften 
zum vorteilhaften Jahresabonnementspreis 

Ich möchte Ihre Zeitschrift (nachstehend angekreuzt) kostenlos probelesen. 
Informiere ich Sie nach Erhalt des Heftes nicht anders, abonniere ich diese 
Zeitschrift. 


Die Bestellung kann ich innerhalb von 10 Tagen nach Erhalt des kosten¬ 
losen Heftes beim Franzis-Verlag, Postf. 37 02 80, 8000 München 37, 
widerrufen. Zur Wahrung der Frist genügt rechtzeitiges Absenden. 


Datum Unterschrift 

Wenn Sie nichts mehr von mir hören, möchte ich ab 
Ihre Zeitschrift 


□ Elekstionik 

□ Puaksetsm 

□ 


26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 126,-, im Ausland DM 150,- 
26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 105-, im Ausland DM 129,- 
12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 55,20, im Ausland DM 64,20 
12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 66,-, im Ausland DM 72,- 


abonnieren. Senden Sie die Hefte an folgende Anschrift: 


NameA/omame 


Beruf 


Straße 


PLZ/Ort 


Datum Unterschrift 


In den genannten Abonnementspreisen sind sämtliche Nebenkosten, einschließlich Porto, 
enthalten (Prois Stand 1/1986). 

Die Kündigung ist jederzeit zum Ende des bezahlten Zeitraumes möglich. 

Die Abonnerrrantsgebühr ist nach Erhalt der Rechnung fällig. 


G7C2 


Kennenlem-AiMpebot 

für eine von vier Franzis-Zeitschriften 
zum vorteilhaften Jahresabonnementspreis 

Ich möchte Ihre Zeitschrift (nachstehend angekreuzt) kostenlos probelesen. 
Informiere ich Sie nach Erhalt des Heftes nicht anders, abonniere ich diese 
Zeitschrift. 


Die Bestellung kann ich innerhalb von 10 Tagen nach Erhalt des kosten¬ 
losen Heftes beim Franzis-Verlag, Postf. 37 02 80, 8000 München 37, 
widerrufen. Zur Wahrung der Frist genügt rechtzeitiges Absenden. 


Datum Unterschrift 

Wenn Sie nichts mehr von mir hören, möchte ich ab 
Ihre Zeitschrift 


□ 

□ 

□ 

□ 


EleMionik 



26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 126,-, im Ausland DM 150,- 
26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 105,-, im Ausland DM 129,- 
12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 55,20, im Ausland DM 64,20 
12 Hefte pro Jahr, Jahresabonnefnents- 
preis DM 66,-, im Ausland DM 72- 


abonnieren. Senden Sie die Hefte an folgende Anschrift: 


Name/Vomame 


Beruf 


Straße 


PLZ/Ort 


Datum Unterschrift 


In den genannten Abonnementspreisen sind sämtliche Nebenkostwi, einschließlich Porto, 
enthalten (Preis Stand 1/1986). 

Die Kündigung ist jederzeit zum Ende des bezahlten Zeitraumes möglich. 

Die /Vbonnementsgebühr ist nach Erhalt der Rechnung fällig. 















































Elektronik verstehen, Computer verstehen - 
mit der ELO fängt der Spaß 
an moderner Technik erst so richtig an. 



Weil Sie in der ELO 
leicht zu realisierende 
Bauanleitungen 
finden, die Ihnen Elek¬ 
tronik praktisch nahe 
bringen und oft neue 
Einsatzbereiche 
für den Computer 
erschließen; Messen, 
Steuern, Regeln, 
Erfassen, Auswerten. 


Und weil ELO Ihnen 
helfen wird, Hardware 
in Ihrem Sinne zu 
verändern - auch als 
Anfänger. 


Daneben finden Sie 
leicht verständliche 

Beiträge zu 
Grundlagen der 
Elektronik, die sehr 
schnell dazu 
beitragen, technische 
Zusammenhänge 
zu erkennen und zu 
nutzen. 


Die Rubrik ELO- 
Service bringt regel¬ 
mäßig Marktüber¬ 
sichten, die Ihnen 
wichtige Orien¬ 
tierungshilfe im immer 
unüberschaubarer 
werdenden Markt 
elektronischer 
Produkte sein werden. 


Und natürlich finden 
Sie ELO-Test- 
berichte: Über 
Schach- und Home¬ 
computer, über Video 
und HiFi-Geräte, 
über Meßgeräte und 
alles, was damit im 
Zusammenhang steht. 


Die ELO verbindet die 
Elektronik mit dem 
Computer. Wer endlich 
richtig einsteigen 
möchte und den Spaß 
an moderner Technik 
neu entdecken will, 
für den gibt's die ELO 
für DM 5,50 an allen 
größeren Zeitschriften¬ 
verkaufsstellen. 


Noch besser: Sie 
machen von unserem 
vorteilhaften 
Kennenlern-Angebot 
Gebrauch. 


Im Magazinteil der 
ELO und in ELO- 


Reports wird berichtet, 

was mit Elektronik 
und Computern 
alles möglich ist. 

In der Forschung, 
in der Industrie, im 
Verkehrswesen, 
im Umwelt¬ 
schutz ... 


Eine Kennenlem- 
Karte finden Sie an 
der Umschlagklappe. 


Das Magazin für Elektronik und Computer 

















